NeilArmstrong: Added glossary link to Record~

2012-03-10T20:55:22Z

Added glossary link to Record~

← Older revision		Revision as of 20:55, 10 March 2012
Line 50:		Line 50:
	;" This separate entry point allows restriction of the author		;" This separate entry point allows restriction of the author
	;" whose's documents are to be released.		;" whose's documents are to be released.
	;"Input: AuthorIEN, the record number of the author in file 200		;"Input: AuthorIEN, the [[record~\|Record]] number of the author in file 200
	;" ShowDetails: optional. Default is to show details (1)		;" ShowDetails: optional. Default is to show details (1)
	;" 0=don't show, 1=show		;" 0=don't show, 1=show
Line 147:		Line 147:
	SIGNDOC(DocIEN,OPTIONS)		SIGNDOC(DocIEN,OPTIONS)
	;"Purpose: To sign one document		;"Purpose: To sign one document
	;"Input: DocIEN -- the record number of the document to sign		;"Input: DocIEN -- the [[record~\|Record]] number of the document to sign
	;" OPTIONS -- An array with input values. The following are used:		;" OPTIONS -- An array with input values. The following are used:
	;" 0PTIONS("AUTHOR") ;"the IEN of the user (IEN from file 200)		;" 0PTIONS("AUTHOR") ;"the IEN of the user (IEN from file 200)

69.68.182.66 at 16:32, 18 September 2005

2005-09-18T16:32:45Z

← Older revision		Revision as of 16:32, 18 September 2005
Line 1:		Line 1:
			Back to [[Programming VistA Issues]]

	This will allow batch signing and printing of documents.		This will allow batch signing and printing of documents.

69.68.182.66 at 13:10, 17 March 2005

2005-03-17T13:10:47Z

← Older revision		Revision as of 13:10, 17 March 2005
Line 14:		Line 14:
	write "Releasing transcription for: ",$piece($get(^VA(200,DUZ,0)),"^",1),!!		write "Releasing transcription for: ",$piece($get(^VA(200,DUZ,0)),"^",1),!!

	do FreeDocs(DUZ)		do FreeDocs(DUZ)

	quit		quit


	FREEASK		FREEASK
	;"Purpose: Ask for chosen user, then cycle through all alerts		;"Purpose: Ask for chosen user, then cycle through all alerts
	;" regarding documents needing to be signed, and automatically		;" regarding documents needing to be signed, and automatically
	;" sign them, then print if user wants.		;" sign them, then print if user wants.
	;"Input: none. User will be asked for signature password,		;"Input: none. User will be asked for signature password,
	;" and if they want documents printed.		;" and if they want documents printed.
	;"Output: Produces a report to choses output channel.		;"Output: Produces a report to choses output channel.

	new Y,DIC		new Y,DIC

	write @IOF		write @IOF
	write !,"-- RELEASE UNSIGNED DOCUMENTS -- ",!!		write !,"-- RELEASE UNSIGNED DOCUMENTS -- ",!!

	set DIC=200 ;"NEW PERSON file		set DIC=200 ;"NEW PERSON file
	set DIC(0)="MAQE"		set DIC(0)="MAQE"
	set DIC("A")="Enter name of author (^ to abort): "		set DIC("A")="Enter name of author (^ to abort): "
	do ^DIC		do ^DIC
	if +Y'>0 do goto RADone		if +Y'>0 do goto RADone
	. write !,"No author selected. Aborting report.",!		. write !,"No author selected. Aborting report.",!

	do FreeDocs(+Y)		do FreeDocs(+Y)
	FADone		FADone
	quit		quit
Line 57:		Line 57:

	set Options("AUTHOR")=+$get(AuthorIEN)		set Options("AUTHOR")=+$get(AuthorIEN)
	set Options("SIG")=0		set Options("SIG")=0
	set Options("DETAILS")=$get(ShowDetails,1)		set Options("DETAILS")=$get(ShowDetails,1)

	do		do
	. new DUZ		. new DUZ
	. set DUZ=+$get(AuthorIEN)		. set DUZ=+$get(AuthorIEN)
	. if DUZ=0 quit		. if DUZ=0 quit
	. do SIG^XUSESIG		. do SIG^XUSESIG
	. if X1'="" set Options("SIG")=1		. if X1'="" set Options("SIG")=1
	if Options("SIG")'=1 do goto FADDone		if Options("SIG")'=1 do goto FADDone
	. write "Signature code incorrect. Aborting.",!		. write "Signature code incorrect. Aborting.",!

	do AlertSign(.Options,.Signed)		do AlertSign(.Options,.Signed)

69.68.182.66 at 13:08, 17 March 2005

2005-03-17T13:08:18Z

Show changes

216.5.28.226 at 13:52, 15 March 2005

2005-03-15T13:52:31Z

← Older revision		Revision as of 13:52, 15 March 2005
Line 1:		Line 1:
	This will allow batch signing and printing of documents.		This will allow batch signing and printing of documents.

	<~~nowiki~~>		<pre>
	FREECUR		FREECUR
	;"Purpose: For current user, ask a date range, and change all		;"Purpose: For current user, ask a date range, and change all
Line 306:		Line 306:
	Quit		Quit

			</pre>
	</~~nowiki~~>

69.68.182.66 at 12:50, 15 March 2005

2005-03-15T12:50:19Z

New page

This will allow batch signing and printing of documents.

<nowiki>
FREECUR
;"Purpose: For current user, ask a date range, and change all
;" TIU DOCUMENTS that have status of unsigned to completed
;"Input: none. User will be asked for start and end dates
;"Output: Produces a report to choses output channel.

new Options

write @IOF
write !,"-- RELEASE UNSIGNED DOCUMENTS -- ",!!
write "Releasing transcription for: ",$piece($get(^VA(200,DUZ,0)),"^",1),!!

set Options("AUTHOR")=DUZ
do FreeAskDates(.Options)

quit

FREEASK
;"Purpose: To ask for a given user, and a date range, and change all
;" TIU DOCUMENTS that have status of unsigned to completed
;"Input: none. User will be asked for the user to report on, and also
;" start and end dates
;"Output: Produces a report to choses output channel.

new Options,Y,DIC

write @IOF
write !,"-- RELEASE UNSIGNED DOCUMENTS -- ",!!

set DIC=200 ;"NEW PERSON file
set DIC(0)="MAQE"
set DIC("A")="Enter name of author (^ to abort): "
do ^DIC
if +Y'>0 do goto RADone
. write !,"No author selected. Aborting report.",!

set Options("AUTHOR")=+Y

do FreeAskDates(.Options)
FADone
quit

FreeAskDates(Options)
;"Purpose: to finish the interactive release documents process.
;" This separate entry point allows restriction of the author
;" whose's documents are to be released.
;"Input: An array that should contain Options("AUTHOR")=IEN

new Signed
new abort set abort=0
set Options("SIG")=0
do
. new DUZ
. set DUZ=+$get(Options("AUTHOR"))
. if DUZ=0 quit
. do SIG^XUSESIG
. if X1'="" set Options("SIG")=1
if Options("SIG")'=1 do goto FADDone
. write "Signature code incorrect. Aborting.",!

;"new YN
;"read !,"Show Details? NO// ",YN:$get(DTIME,3600)
;"set Options("DETAILS")=($$UP^XLFSTR(YN)["Y")
;"if YN["^" write "Aborting.",! goto FADDone

set Options("DETAILS")=1

;"do ScanSign(.Options,.Signed)
do AlertSign(.Options,.Signed)
do PRINT(.Signed)

FADDone
quit

ScanSign(OPTIONS,SIGNED)
;"Purpose: To scan through all TIU DOCUMENTS, and release those
;" that have a status of unsigned to completed
;"Input: The following elements in OPTIONS should be defined
;" 0PTIONS("AUTHOR") ;"the IEN of the user (IEN from file 200)
;" OPTIONS("START") ;"Earliest date of documents, in Fileman internal format
;" OPTIONS("END") ;"Latest date of documents, in Fileman internal format
;" OPTIONS("DETAILS") ;"if 1, then each document is shown as signed (not quiet)
;" OPTIONS("SIG") ;"1 if signature has been verified.
;" SIGNED: OPTIONAL. This is an OUT PARAMETER -- must be passed by reference
;" This will contain list of documents freed/signed, in this format:
;" SIGNED(1234)=1234 with 1234 being IEN of document signed.
;" SIGNED(1235)=1235 with 1235 being IEN of document signed.
;" SIGNED(1236)=1236 with 1235 being IEN of document signed.

new index
new DocAuth,Status
new User,initials
new NeedsCR set NeedsCR=1
new StartDT,EndDT
new ShowDetails set ShowDetails=+$get(OPTIONS("DETAILS"))

new %DT
set %DT="AEP"
set %DT("A")="Enter starting date (^ to abort): "
do ^%DT
if Y=-1 do goto FADDone
. write "Invalid date. Aborting report.",!
set Options("START")=Y

set %DT("A")="Enter ending date (^ to abort): "
do ^%DT
if Y=-1 do goto FADDone
. write "Invalid date. Aborting report.",!
set Options("END")=Y

set User=+$get(OPTIONS("AUTHOR"))
if User=0 do goto RQDone
. if $get(OPTIONS("DETAILS")) write "No author IEN supplied. Aborting.",!
set StartDT=+$get(OPTIONS("START"))
set EndDT=+$get(OPTIONS("END"))

if $get(OPTIONS("DETAILS")) do
. write !,"----------------------------------------------",!
. write "Starting scan of documents. [ESC] will abort.",!
. write "----------------------------------------------",!

set initials=$piece($get(^VA(200,User,0)),"^",2) ;"field 1 = initials
new sUnsigned set sUnsigned=$order(^TIU(8925.6,"B","UNSIGNED",""))

set index=$order(^TIU(8925,0))
for do quit:(index="")
. if index="" quit
. new k read *k:0
. if k=27 do quit
. . set index=""
. . if $get(OPTIONS("DETAILS")) write "Release aborted by ESC from user.",!
. set DocAuth=$piece($get(^TIU(8925,index,12)),"^",2) ;"field 1202 = Author
. if (DocAuth=$get(OPTIONS("AUTHOR"))) do
. . set Status=$piece($get(^TIU(8925,index,0)),"^",5) ;"field .05 = Status
. . if (Status=sUnsigned) do
. . . new tDate
. . . set tDate=$piece($get(^TIU(8925,index,12)),"^",1)
. . . set tDate=tDate\1 ;"integer round down (removes time decimal amount)
. . . if (tDate'<StartDT)&(tDate'>EndDT) do
. . . . if $$SIGNDOC(index,.OPTIONS) do
. . . . . set SIGNED(index)=index
. set index=+$order(^TIU(8925,index))
. if index=0 set index=""

if $get(OPTIONS("DETAILS")) write !,"Done signing documents.",!

quit

AlertSign(OPTIONS,SIGNED)
;"Purpose: To cycle through all alerts for AUTHOR, and release TIU DOCUMENTS
;" needing signature.
;"Input: The following elements in OPTIONS should be defined
;" 0PTIONS("AUTHOR") ;"the IEN of the user (IEN from file 200)
;" OPTIONS("DETAILS") ;"if 1, then each document is shown as signed (not quiet)
;" OPTIONS("SIG") ;"1 if signature has been verified.
;" SIGNED: OPTIONAL. This is an OUT PARAMETER -- must be passed by reference
;" This will contain list of documents freed/signed, in this format:
;" SIGNED(1234)=1234 with 1234 being IEN of document signed.
;" SIGNED(1235)=1235 with 1235 being IEN of document signed.
;" SIGNED(1236)=1236 with 1235 being IEN of document signed.

new index
new Abort set Abort=0
new Alert
new DocIEN
new NumFound set NumFound=0

set User=+$get(OPTIONS("AUTHOR"))
if User=0 do goto RQDone
. if $get(OPTIONS("DETAILS")) write "No author IEN supplied. Aborting.",!

write !!,"-------- List of Documents to be Signed --------",!
set index=$order(^XTV(8992,User,"XQA",0))
for do quit:(index="")
. if index="" quit
. new k read *k:0
. if k=27 do quit
. . set index=""
. . if $get(OPTIONS("DETAILS")) write "List aborted by ESC from user.",!
. set Alert=$get(^XTV(8992,User,"XQA",index,0))
. if $piece(Alert,"^",3)["available for SIGNATURE" do
. . write $piece(Alert,"^",3),!
. . set NumFound=NumFound+1
. set index=$order(^XTV(8992,User,"XQA",index))

write "-----------------------------------------------",!
write !,NumFound," documents needing signature.",!!
if NumFound=0 do goto ASgnDone
. write "Good bye!",!

set index=$order(^XTV(8992,User,"XQA",0))
for do quit:(index="")!(Abort=1)
. new Title,YN
. if index="" quit
. set Alert=$get(^XTV(8992,User,"XQA",index,0))
. set Title=$piece(Alert,"^",3)
. if Title["available for SIGNATURE" do
. . write "Sign: ",$piece(Title," ",1),"? YES// "
. . read YN:$get(DTIME,3600)
. . if YN="" set YN="Y" write "YES",!
. . if YN["^" write "Aborting.",! set Abort=1 quit
. . if ($$UP^XLFSTR(YN)["Y") do
. . . set DocIEN=+$get(^XTV(8992,User,"XQA",index,1))
. . . if DocIEN'=0 do
. . . . ;"write "Would call SIGNDOC(",DocIEN,",.OPTIONS)",!
. . . . if $$SIGNDOC(DocIEN,.OPTIONS) do
. . . . . set SIGNED(DocIEN)=DocIEN
. set index=$order(^XTV(8992,User,"XQA",index))

if $get(OPTIONS("DETAILS")) write !!,"Done signing documents.",!

ASgnDone
quit

SIGNDOC(DocIEN,OPTIONS)
;"Purpose: To sign one document
;"Input: DocIEN -- the record number of the document to sign
;" OPTIONS -- An array with input values. The following are used:
;" 0PTIONS("AUTHOR") ;"the IEN of the user (IEN from file 200)
;" OPTIONS("DETAILS") ;"if 1, then each document showed
;" OPTIONS("SIG") ;"1 if signature has been verified.
;"Results: 1 = successful sign. 0 = failure

new result set result=1 ;"default to failure

if $get(OPTIONS("SIG"))'=1 goto SDCDone
if +$get(OPTIONS("AUTHOR"))'>0 goto SDCDone
if $get(DocIEN)="" goto SDCDone

new SignerS
set SignerS=1_"^"_$piece($get(^VA(200,+OPTIONS("AUTHOR"),20)),"^",2,3)
do ES^TIURS(DocIEN,SignerS)
;"Note: alert r.e. "Note available for signature" are automatically removed

if OPTIONS("DETAILS")=1 do
. new Date,DateS,Pt
. set Date=$piece($get(^TIU(8925,DocIEN,12)),"^",1) ;"field 1201 = Entry Date
. set DateS=$$FMTE^XLFDT(Date,"D")
. set Pt=+$piece($get(^TIU(8925,DocIEN,0)),"^",2) ;"field .02 = patient
. if Pt'=0 set Patient=$piece($get(^DPT(Pt,0)),"^",1) ;"field .01 = name
. write DateS," -- ",Patient," Released (auto-'signed')",!

set result=1 ;"success

SDCDone quit result

PRINT(DocArray) ; Prompt and print, or array
;"This function was copied from PRINT^TIUEPRNT, to allow modification
;"Function modification: changed to allow array input.
;" DocArray: This will contain list of documents to print, in this format:
;" DocArray(1234)=1234 with 1234 being IEN of document to be printed.
;" DocArray(1235)=1235 with 1235 being IEN of document to be printed.
;" DocArray(1236)=1236 with 1235 being IEN of document to be printed.

New TIUDEV,TIUTYP,DFN,TIUPMTHD,TIUD0,TIUMSG,TIUPR,TIUDARR,TIUFLAG,TIUDPRM
New TIUPGRP,TIUPFHDR,TIUPFNBR

new index set index=$order(DocArray(""))
if index="" goto PRINT1X
for do quit:(index="")
. set DocIEN=index
. ;
. If +$$ISADDNDM^TIULC1(DocIEN) Set DocIEN=$Piece($Get(^TIU(8925,+DocIEN,0)),U,6)
. If $Get(^TIU(8925,DocIEN,21)) Set DocIEN=^TIU(8925,DocIEN,21)
. Set TIUD0=$Get(^TIU(8925,DocIEN,0))
. Set TIUTYP=$Piece(TIUD0,U)
. Set DFN=$Piece(TIUD0,U,2)
. If +TIUTYP'>0 Quit
. ;
. Set TIUPMTHD=$$PRNTMTHD^TIULG(+TIUTYP)
. Set TIUPGRP=$$PRNTGRP^TIULG(+TIUTYP)
. Set TIUPFHDR=$$PRNTHDR^TIULG(+TIUTYP)
. Set TIUPFNBR=$$PRNTNBR^TIULG(+TIUTYP)
. ;
. Do DOCPRM^TIULC1(+TIUTYP,.TIUDPRM,DocIEN)
. ;
. If +$Piece($Get(TIUDPRM(0)),U,9) Set TIUFLAG=$$FLAG^TIUPRPN3
. If ($Get(TIUPMTHD)]"")&(+$Get(TIUPGRP))&($Get(TIUPFHDR)]"")&($Get(TIUPFNBR)]"") do
. . Set TIUDARR(TIUPMTHD,$Get(TIUPGRP)_"$"_TIUPFHDR_";"_DFN,1,DocIEN)=TIUPFNBR
. Else Set TIUDARR(TIUPMTHD,DFN,1,DocIEN)=""
. ;
. If $Get(TIUPMTHD)']"" do ;"Goto PRINT1X
. . if OPTIONS("DETAILS")=1 do
. . . Write !,$Char(7),"No Print Method Defined for "
. . . write $Piece($Get(^TIU(8925.1,+TIUTYP,0)),U)
. . ;"Hang 2
. ;
. set index=$order(DocArray(index))

Set TIUDEV=$$DEVICE^TIUDEV(.IO) ; Get Device/allow queueing
If ($Get(IO)']"")!(TIUDEV']"") Do ^%ZISC Quit
If $Data(IO("Q")) Do QUE^TIUDEV("PRINTQ^TIUEPRNT",TIUDEV) Goto PRINT1X
Do PRINTQ^TIUEPRNT
Do ^%ZISC

PRINT1X ; Exit single document print
Quit

</nowiki>

Batch Signing of Documents - Revision history

NeilArmstrong: Added glossary link to Record~

69.68.182.66 at 16:32, 18 September 2005

69.68.182.66 at 13:10, 17 March 2005

69.68.182.66 at 13:08, 17 March 2005

216.5.28.226 at 13:52, 15 March 2005

69.68.182.66 at 12:50, 15 March 2005