Routine: PSJBCMA5

Package	Total	Call Graph
Inpatient Medications	4	TXT^PSGMUTL (MVOPIAL,OPIWARN)^PSJBCMA1 (FILEOPI,FILESI)^PSJBCMA2 ENSI^PSJUTL
VA FileMan	3	^DIE ^DIR EN^DIWE

Package	Total	Caller Graph
Inpatient Medications	39	PSGAL5 PSGMIV PSGOE41 PSGOE7 PSGOE81 PSGOE91 PSGOEE PSGOEF1 PSGOETO PSGOTR PSGVW PSIVEDT1 PSIVORAL PSIVORC2 PSIVORFA PSIVORFB PSJ LM FINISH PSJ LM NEW CM ORDER PSJ LM NEW ORDER PSJ LM NEW ORDER FROM PROFILE PSJ LM NEW SELECT ORDER PSJ LM SELECT ORDER PSJBCMA2 PSJCLOR2 PSJCOM PSJHL3 PSJHL7 PSJHLU PSJI LM FINISH PSJI LM VERIFY PSJINVW PSJLIVFD PSJLIVMD PSJLMPRU PSJLMUDE PSJO PSJOE0 PSJU LM VERIFY PSJUTL
Barcode Medication Administration	10	PSBOCE PSBOCI PSBOCM PSBOCP PSBODL PSBODO PSBOIV PSBOMH2 PSBPRN PSBVDLU1
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
GETSIOPI(DFN,ON,BCMA)	; Get appropriate field depending on order type ; DFN - Patient IEN ; ON - Inpatient Order number ; BCMA - Flag indicating called from BCMA - return data in ^TMP("PSJBCMA",$J	ICR #5763 Status: Pending Usage: Controlled Subscription
MOVETMP(DFN,ON,OTYP)	; Move text from PS(53.45 to ^TMP for BCMA
GETSI(DFN,ON,BC)	; Get Special Instructions for Unit Dose orders
GETOPI(DFN,ON,BC)	; Get Other Print Info for IV orders
EDITSI(DFN,PSJORD)	; Edit Special Instructions in ^PS(53.45 via Word Processing
EDITOPI(PSJDPT,PSJORD)	; Edit Other Print Info in ^PS(53.45 via Word Processing
OPIWARN(AFTER)	; Warn user about OPI not printing on IV labels
FILESI(DFN,PSJORD)	; File Special instructions from ^PS(53.45 to UD order
FILEOPI(DFN,ORDER)	; File Other Print Info from ^PS(53.45 to IV order
DIFFSI(DFN,PSJORD)	; Compare Special Instructions, pre and post edit
DIFFOPI(DFN,PSJORD)	; Compare Other Print Info, pre and post edit
DIFFAR(ARRAY1,ARRAY2)	; Compare two text arrays
MVOPI(DFN,PSJI1,PSJI2)	; Move OPI from Non-Verified order to Active order during Verify
MVOPIAL(DFN,PSJI1,PSJI2)	; Move Other Print Info Activity log entries from NV order to Active order, during Verification
KILL(USR)	; Clean up ^PS(53.45
PAUSE(DEF)	;
DONE(DEF)	; -- Done editing?

External References

Name	Field # of Occurrence
^DIE	EDITSI+6, EDITOPI+7
^DIR	PAUSE+1, DONE+4
EN^DIWE	EDITSI+7, EDITOPI+8
TXT^PSGMUTL	GETSI+11, GETSI+22, GETOPI+10, GETOPI+19
MVOPIAL^PSJBCMA1	MVOPIAL+1
OPIWARN^PSJBCMA1	OPIWARN+1
FILEOPI^PSJBCMA2	FILEOPI+2
FILESI^PSJBCMA2	FILESI+2
ENSI^PSJUTL	EDITSI+13

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!,$C(7),"SPECIAL INSTRUCTIONS must not contain embedded uparrow ""^"". " Line Location: EDITSI+10
Function Call: WRITE	Prompt: ! Line Location: EDITSI+11
Function Call: WRITE	Prompt: !!!,$C(7),"OTHER PRINT INFO must not contain embedded uparrow ""^""." Line Location: EDITOPI+12
Function Call: WRITE	Prompt: ! Line Location: EDITOPI+13
Function Call: WRITE	Prompt: ! Line Location: PAUSE+1
Function Call: WRITE	Prompt: ! Line Location: PAUSE+1
Routine Call	DIE Line Location: EDITSI+6 EDITOPI+7
Routine Call	DIR Line Location: PAUSE+1 DONE+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PS(53.45 - [#53.45]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(53.1 - [#53.1]	GETSIOPI+10, GETSIOPI+13, GETSI+7, GETSI+8, GETSI+9, GETSI+10, GETSI+13, GETOPI+6, GETOPI+7, GETOPI+8 , GETOPI+9, GETOPI+12, DIFFSI+7, DIFFSI+8, DIFFOPI+7, DIFFOPI+8
^PS(53.45 - [#53.45]	MOVETMP+2, MOVETMP+3, MOVETMP+4, MOVETMP+5!, GETSI+4, GETSI+5, GETSI+8, GETSI+9, GETSI+11, GETSI+12 , GETSI+13, GETSI+14, GETSI+15, GETSI+19, GETSI+20, GETSI+22, GETSI+23, GETSI+24, GETOPI+4, GETOPI+5 , GETOPI+7, GETOPI+8, GETOPI+10, GETOPI+11, GETOPI+12, GETOPI+14, GETOPI+16, GETOPI+17, GETOPI+19, GETOPI+20* , GETOPI+21, GETOPI+22!, GETOPI+23, EDITSI+2, EDITSI+3, EDITSI+8, EDITSI+9, EDITSI+11!, EDITSI+12!, EDITSI+13 , EDITOPI+2, EDITOPI+9, EDITOPI+10!, EDITOPI+11, EDITOPI+13!*, EDITOPI+15, EDITOPI+16, EDITOPI+18, EDITOPI+19, FILEOPI+3! , DIFFSI+2, DIFFSI+4, DIFFSI+5, DIFFSI+7, DIFFSI+8, DIFFOPI+2, DIFFOPI+4, DIFFOPI+5, DIFFOPI+7, DIFFOPI+8 , KILL+1!
^PS(55 - [#55]	GETSI+18, GETSI+19, GETSI+20, GETSI+21, GETSI+24, GETOPI+15, GETOPI+16, GETOPI+17, GETOPI+18, GETOPI+21 , DIFFSI+4, DIFFSI+5, DIFFOPI+4, DIFFOPI+5
^TMP("PSJBCMA5"	GETSIOPI+6!, GETSIOPI+8, MOVETMP+2!, MOVETMP+3, MOVETMP+4
^TMP("PSJTMPSI"	EDITSI+3!, EDITSI+11, EDITSI+14!, EDITOPI+2!, EDITOPI+13, EDITOPI+21!

Label References

Name	Line Occurrences
$$DONE	EDITSI+11, EDITOPI+13
$$GETOPI	GETSIOPI+11, GETSIOPI+13
$$GETSI	GETSIOPI+12, GETSIOPI+14, EDITSI+2
FILEOPI	MVOPI+2
GETOPI	MVOPI+2
MOVETMP	GETSIOPI+11, GETSIOPI+12
OPIWARN	EDITOPI+5, EDITOPI+15
PAUSE	EDITSI+10, EDITOPI+12

Naked Globals

Name	Field # of Occurrence
^(	EDITSI+9, EDITOPI+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AFTER	OPIWARN~, OPIWARN+1
ARRAY1	DIFFAR~
ARRAY1(	DIFFAR+2
ARRAY2	DIFFAR~
ARRAY2(	DIFFAR+2
BC	GETSI~, GETSI+11, GETSI+22, GETOPI~, GETOPI+10, GETOPI+19
BCMA	GETSIOPI~, GETSIOPI+7, GETSIOPI+8
DA	EDITSI+5~, EDITSI+6, EDITSI+7, EDITOPI+4~, EDITOPI+7, EDITOPI+8, FILESI+1~
DEF	PAUSE~, PAUSE+1, DONE~, DONE+2, DONE+3
DFN	GETSIOPI~, GETSIOPI+5, GETSIOPI+6, GETSIOPI+8, GETSIOPI+11, GETSIOPI+12, GETSIOPI+13, GETSIOPI+14, MOVETMP~, MOVETMP+3 , MOVETMP+4, GETSI~, GETSI+2, GETSI+18, GETSI+19, GETSI+20, GETSI+21, GETSI+24, GETOPI~, GETOPI+2 , GETOPI+15, GETOPI+16, GETOPI+17, GETOPI+18, GETOPI+21, EDITSI~, EDITSI+2, FILESI~, FILESI+2, FILEOPI~ , FILEOPI+2, DIFFSI~, DIFFSI+4, DIFFSI+5, DIFFOPI~, DIFFOPI+4, DIFFOPI+5, MVOPI~, MVOPI+1, MVOPI+2 , MVOPIAL~, MVOPIAL+1
DIC	EDITSI+1~, EDITSI+7, EDITOPI+1~, EDITOPI+8
DIE	EDITSI+5~, EDITSI+6, EDITOPI+4~, EDITOPI+7, FILESI+1~
DIFF	DIFFSI+1~, DIFFSI+2, DIFFSI+4, DIFFSI+5, DIFFSI+7, DIFFSI+8, DIFFSI+9, DIFFOPI+1~, DIFFOPI+2, DIFFOPI+4* , DIFFOPI+5, DIFFOPI+7, DIFFOPI+8, DIFFOPI+9, DIFFAR+1~, DIFFAR+2*, DIFFAR+3
DIR	EDITSI+5~, EDITOPI+4~*, PAUSE+1!, DONE+1~
DIR("?"	PAUSE+1, DONE+3
DIR("A"	PAUSE+1, DONE+2
DIR("B"	DONE+2*
DIR(0	PAUSE+1, DONE+2
DIWESUB	EDITSI+1~, EDITSI+5, EDITOPI+1~, EDITOPI+4
>> DONE	EDITOPI+5, EDITOPI+7
DR	EDITSI+5~, EDITSI+6, EDITSI+7, EDITOPI+7, EDITOPI+8
I	EDITSI+1~, EDITOPI+1~
II	EDITSI+5~, EDITSI+9, EDITOPI+4~, EDITOPI+11
L	EDITSI+2*, EDITSI+5~, EDITOPI+4~
LN	MOVETMP+1~, MOVETMP+3, MOVETMP+4, GETSI+9, GETSI+20, GETOPI+1~, GETOPI+8, GETOPI+17, FILESI+1~, FILEOPI+1~ , DIFFSI+1~, DIFFSI+2, DIFFSI+4, DIFFSI+5, DIFFSI+7, DIFFSI+8, DIFFOPI+1~, DIFFOPI+2, DIFFOPI+4, DIFFOPI+5 , DIFFOPI+7, DIFFOPI+8, DIFFAR+1~, DIFFAR+2
LNCNT	FILESI+1~, FILEOPI+1~
MARX	GETSI+10~, GETSI+21~, GETOPI+9~, GETOPI+18~
MARX(	GETSI+12, GETSI+23, GETOPI+11, GETOPI+20
MARX(" "	GETSI+11, GETSI+22, GETOPI+10, GETOPI+19
ND	MOVETMP+1~*, MOVETMP+2, MOVETMP+3, MOVETMP+4, MOVETMP+5
NTNT	DIFFSI+7~
NTOT	DIFFSI+4~, DIFFSI+7, DIFFOPI+4~, DIFFOPI+7~, DIFFAR+1~*
OLDOPI	GETOPI+9~, GETOPI+10, GETOPI+18~, GETOPI+19
OLDSI	GETSI+10~, GETSI+11, GETSI+21~, GETSI+22
ON	GETSIOPI~, GETSIOPI+5, GETSIOPI+6, GETSIOPI+8, GETSIOPI+10, GETSIOPI+11, GETSIOPI+12, GETSIOPI+13, GETSIOPI+14, MOVETMP~ , MOVETMP+3, MOVETMP+4, GETSI~, GETSI+2, GETSI+4, GETSI+7, GETSI+8, GETSI+9, GETSI+10, GETSI+13 , GETSI+14, GETSI+18, GETSI+19, GETSI+20, GETSI+21, GETSI+24, GETOPI~, GETOPI+2, GETOPI+4, GETOPI+6 , GETOPI+7, GETOPI+8, GETOPI+9, GETOPI+12, GETOPI+13, GETOPI+15, GETOPI+16, GETOPI+17, GETOPI+18, GETOPI+21
OPIMSG	EDITOPI+17~*
ORDER	FILEOPI~, FILEOPI+1, FILEOPI+2
OTOT	DIFFSI+4~, DIFFSI+7~, DIFFOPI+4~, DIFFOPI+7~, DIFFAR+1~*
OTYP	MOVETMP~, MOVETMP+1
>> P("OPI"	EDITOPI+15, EDITOPI+16, EDITOPI+20*
>> PSGOEENO	GETSI+6, GETSI+17
>> PSGOORD	GETSI+6
PSJDPT	EDITOPI~
PSJI1	MVOPI~, MVOPI+1, MVOPI+2, MVOPIAL~, MVOPIAL+1
PSJI2	MVOPI~, MVOPI+1, MVOPI+2, MVOPIAL~, MVOPIAL+1
PSJII	EDITSI+1~, EDITSI+4, EDITSI+6, EDITSI+7, EDITSI+10, EDITSI+11, EDITOPI+3, EDITOPI+5, EDITOPI+7, EDITOPI+8 , EDITOPI+12, EDITOPI+13
PSJORD	GETSI+6, EDITSI~, EDITSI+2, EDITOPI~, FILESI~, FILESI+2, FILEOPI+1~*, DIFFSI~, DIFFSI+3, DIFFSI+4 , DIFFSI+5, DIFFSI+6, DIFFSI+7, DIFFSI+8, DIFFOPI~, DIFFOPI+3, DIFFOPI+4, DIFFOPI+5, DIFFOPI+6, DIFFOPI+7 , DIFFOPI+8
PSJOVRMX	EDITOPI+17~, EDITOPI+18, EDITOPI+19, EDITOPI+20, FILESI+1~
PSJSYSP	GETSIOPI+7~, GETSIOPI+9~, MOVETMP+2, MOVETMP+3, MOVETMP+4, MOVETMP+5, GETSI+3~, GETSI+4, GETSI+5, GETSI+8 , GETSI+9, GETSI+11, GETSI+12, GETSI+13, GETSI+14, GETSI+15, GETSI+19, GETSI+20, GETSI+22, GETSI+23 , GETSI+24, GETOPI+3~, GETOPI+4, GETOPI+5, GETOPI+7, GETOPI+8, GETOPI+10, GETOPI+11, GETOPI+12, GETOPI+14 , GETOPI+16, GETOPI+17, GETOPI+19, GETOPI+20, GETOPI+21, GETOPI+22, GETOPI+23, EDITSI+1, EDITSI+2, EDITSI+3 , EDITSI+6, EDITSI+7, EDITSI+8, EDITSI+9, EDITSI+11, EDITSI+12, EDITSI+13, EDITOPI+1, EDITOPI+2, EDITOPI+7 , EDITOPI+8, EDITOPI+9, EDITOPI+10, EDITOPI+11, EDITOPI+13, EDITOPI+15, EDITOPI+16, EDITOPI+18, EDITOPI+19, FILEOPI+3 , DIFFSI+2, DIFFSI+4, DIFFSI+5, DIFFSI+7, DIFFSI+8, DIFFOPI+2, DIFFOPI+4, DIFFOPI+5, DIFFOPI+7, DIFFOPI+8
>> PSJSYSP0	GETSI+16
PSJTMPTX	EDITOPI+17~, EDITOPI+18, EDITOPI+19, EDITOPI+20, FILESI+1~
PSJTXT	GETSI+1~, GETOPI+1~
PSJTXTLN	EDITSI+1~, EDITSI+5, EDITSI+8, EDITSI+12, EDITSI+13, EDITSI+15, EDITOPI+1~, EDITOPI+4, EDITOPI+6, EDITOPI+9 , EDITOPI+10, EDITOPI+16, EDITOPI+22
PSJVALID	EDITSI+1~, EDITSI+4, EDITSI+5, EDITSI+9, EDITSI+10, EDITSI+11, EDITSI+12, EDITOPI+1~, EDITOPI+3, EDITOPI+4 , EDITOPI+11, EDITOPI+12, EDITOPI+13, EDITOPI+14
PSJVERI	GETSI+16~*, GETSI+17
TMPLIN	EDITOPI+18*, EDITOPI+19, FILESI+1~
TMPLN	EDITSI+5~, EDITSI+9, EDITOPI+4~, EDITOPI+11
TXT	EDITOPI+17~
TXTCNT	GETSI+10~, GETSI+11, GETSI+21~, GETSI+22, GETOPI+9~, GETOPI+10, GETOPI+18~, GETOPI+19
TXTLN	GETSI+1~, GETSI+12, GETSI+23, GETOPI+11, GETOPI+20
USR	KILL~, KILL+1
X	EDITOPI+5, EDITOPI+7, FILESI+1~, DONE+1~
Y	FILESI+1~, DONE+1~, DONE+5

Customize PDF page

Package: Inpatient Medications

Routine: PSJBCMA5

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 50

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: