Routine: PSGAH

Package	Total	Call Graph
Kernel	5	(CLOSE,OPEN)^%ZISUTL $$EC^%ZOSV (,UNWIND)^%ZTER ($$FMTE,$$NOW)^XLFDT $$PATCH^XPDUTL
Barcode Medication Administration	1	MEDHIST^PSBUTL
Inpatient Medications	1	ENCV^PSGSETU
List Manager	1	FULL^VALM1
VA FileMan	1	^DIR

Package	Total	Caller Graph
Inpatient Medications	1	PSJ LM ADM HIST
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
INIT	; Initialize Variables
MAIN	; Main control
GETORD	; Get order information
GETHIST	; Get last 99 actions for each OI Dosage
SETTMP(ORDDT)	; Builds ^XTMP for sort
WRITE	; WRITE records to output ; "DOSAGE ORDERD"_" "_MED ROUTE (INTERNAL)_" "_SCHEDULE(INTERNAL)_$S(CURRENT ORDER:"(*)",1:"")
PRNHDR	; Heading
PRNLN	;Write line on report
PAUSE
PRMTRNG	; prompt for number of Days back to return
ERRTRP	; Error trap processing

External References

Name	Field # of Occurrence
CLOSE^%ZISUTL	MAIN+9
OPEN^%ZISUTL	MAIN+2
$$EC^%ZOSV	ERRTRP+2
^%ZTER	ERRTRP+5
UNWIND^%ZTER	ERRTRP+6
^DIR	PRMTRNG+9
MEDHIST^PSBUTL	GETHIST+9
ENCV^PSGSETU	INIT+10
FULL^VALM1	INIT+11
$$FMTE^XLFDT	PRNHDR+4, PRNLN+2
$$NOW^XLFDT	PRNHDR+4
$$PATCH^XPDUTL	INIT+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Report not available until install of patch PSB3.083" Line Location: INIT+1
Function Call: WRITE	Prompt: !,"AH Report cannot be run for this order. Use CPRS or BCMA to find Admin history." Line Location: INIT+2
Function Call: WRITE	Prompt: !,"AH Report cannot be run for this order. Use CPRS or BCMA to find Admin history." Line Location: INIT+3
Function Call: WRITE	Prompt: !!,"Nothing queued to print.",! Line Location: MAIN+2
Function Call: READ	Variable: X Timeout: $G(DTIME) Line Location: MAIN+8
Function Call: WRITE	Prompt: !!,"Press RETURN to continue....." Line Location: MAIN+8
Function Call: WRITE	Prompt: @IOF Line Location: PRNHDR+3
Function Call: WRITE	Prompt: $E($$FMTE^XLFDT($$NOW^XLFDT),1,18) Line Location: PRNHDR+4
Function Call: WRITE	Prompt: "Administration History for Orderable Item ",?73,"Page ",PAGNO Line Location: PRNHDR+5
Function Call: WRITE	Prompt: $G(PSGOPDN) Line Location: PRNHDR+6
Function Call: WRITE	Prompt: "Date Action Initials Location" Line Location: PRNHDR+7
Function Call: WRITE	Prompt: "Dosage Ordered Med Route Schedule" Line Location: PRNHDR+8
Function Call: WRITE	Prompt: "---------------------------------------------------------------------------" Line Location: PRNHDR+9
Function Call: WRITE	Prompt: $E($P($$FMTE^XLFDT(DATE,5),":",1,2)_PSGSPCE,1,16)_" "_$E(PSGACT_PSGSPCE,1,6)_" "_$E(PSGIN_PSGSPCE,1,8)_" "_$G(PSGLOC,"UNKNOWN") Line Location: PRNLN+2
Function Call: WRITE	Prompt: $E(PSGDSG_PSGSPCE,1,30)_" "_$E(PSGMRT_PSGSPCE,1,12)_" "_$E(PSGSCH_PSGSPCE,1,30),! Line Location: PRNLN+3
Function Call: WRITE	Prompt: !!,"Press RETURN to continue, '^' to exit" Line Location: PAUSE+2
Function Call: READ	Variable: X Timeout: $G(DTIME) Line Location: PAUSE+3
Routine Call	DIR Line Location: PRMTRNG+9

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(51.2 - [#51.2]	GETORD+6
^PS(53.1 - [#53.1]	INIT+3
^PS(55 - [#55]	GETORD+6, GETORD+7, GETORD+8
^XTMP("PSGAH"	INIT+12!, SETTMP+1*, WRITE+3, WRITE+5, WRITE+6

Label References

Name	Line Occurrences
GETHIST	MAIN+6
GETORD	MAIN+6
MAIN	INIT+11
PAUSE	INIT+1, INIT+2, INIT+3, PRNLN+5
PRMTRNG	INIT+11
PRNHDR	MAIN+7, PRNLN+5
PRNLN	WRITE+8
SETTMP	GETORD+9
WRITE	MAIN+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
COUNT	INIT+6~, INIT+9, PRNLN+4
DATE	WRITE+2~, WRITE+3, WRITE+5, WRITE+6, PRNLN+2
>> DFN	INIT+4, GETORD+6, GETORD+7, GETORD+8, GETHIST+9
DIR	PRMTRNG+1!, PRMTRNG+10!
DIR("?"	PRMTRNG+4, PRMTRNG+5, PRMTRNG+6, PRMTRNG+7, PRMTRNG+8*
DIR("A"	PRMTRNG+3*
DIR("B"	PRMTRNG+3*
DIR(0	PRMTRNG+2*
DIROUT	PRMTRNG+1!
DIRUT	PRMTRNG+1!, PRMTRNG+9, PRMTRNG+10!
DTIME	MAIN+8, PAUSE+3
DTOUT	PRMTRNG+1!
DUOUT	PRMTRNG+1!
I	GETORD+1~, GETORD+2, GETORD+3, GETORD+9
IO	MAIN+4, PAUSE+4
IO(0	PAUSE+2
IOF	PRNHDR+3
IOSL	MAIN+3, PRNLN+5
IOST	MAIN+3
>> ON	INIT+2, INIT+3, GETORD+5
ORDDT	SETTMP~, SETTMP+1
ORDER	WRITE+2~, WRITE+4, WRITE+5, WRITE+6
PAGNO	INIT+6~, MAIN+4, PRNHDR+2, PRNHDR+5
POP	MAIN+2, MAIN+10!
PROBLEM	ERRTRP+1~, ERRTRP+4*
PSGACAR	INIT+5~, MAIN+6, GETHIST+9
PSGACAR(	GETORD+2, GETORD+3
PSGACT	INIT+6~, GETORD+5, SETTMP+1, WRITE+6, PRNLN+2
PSGCUR	GETORD+1~, GETORD+3, GETORD+5, SETTMP+1
PSGDRNG	INIT+5~, GETHIST+9, PRMTRNG+9*
PSGDSG	INIT+6~, GETORD+8, SETTMP+1, WRITE+6, PRNLN+3
PSGIN	INIT+6~, GETORD+3, SETTMP+1, WRITE+7, PRNLN+2
PSGLOC	INIT+5~, GETORD+3, SETTMP+1, WRITE+7, PRNLN+2
PSGMRT	INIT+5~, GETORD+6, SETTMP+1, WRITE+6, PRNLN+3
PSGOIEN	INIT+5~, INIT+8*, GETHIST+9
>> PSGOPD	INIT+8
>> PSGOPDN	PRNHDR+6
PSGORD	INIT+5~, GETORD+5*, GETORD+6, GETORD+7, GETORD+8, SETTMP+1
PSGQ	INIT+5~, MAIN+1, WRITE+3, WRITE+5, PRNHDR+1, PAUSE+3, PRMTRNG+9
PSGSCH	INIT+5~, GETORD+7, SETTMP+1, WRITE+6, PRNLN+3
PSGSPCE	INIT+5~, INIT+9*, PRNLN+2, PRNLN+3
STR	GETORD+1~, GETORD+3, GETORD+4, GETORD+5, WRITE+2~, WRITE+6, WRITE+7
TERM	INIT+1, INIT+2, INIT+3, INIT+6~, MAIN+3, PRNHDR+4, PRNHDR+5, PRNHDR+6, PRNHDR+7, PRNHDR+8 , PRNHDR+9, PRNLN+2, PRNLN+3, PRNLN+5, PAUSE
U	INIT+3, GETORD+3, GETORD+4, GETORD+5, GETORD+6, GETORD+7, GETORD+8, SETTMP+1, WRITE+6, WRITE+7
X	MAIN+8, PAUSE+1~, PAUSE+3
>> XQUIT	INIT+10
Y	PRMTRNG+9, PRMTRNG+10!
Z	ERRTRP+1~, ERRTRP+3*
Z(1	ERRTRP+2*

Customize PDF page

Package: Inpatient Medications

Routine: PSGAH

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: