Routine: PSSMEDRT

Package	Total	Call Graph
VA Fileman	4	^DIC ^DIE EN^DIQ1 ^DIR
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD

Package	Total	Caller Graph
Pharmacy Data Management	3	PSS MAP ONE MED ROUTE PSS MED ROUTE MAPPING REPORT PSS MED ROUTES INITIAL MAPPING

Entry Points

Name	Comments	DBIA/ICR reference
STARTX	;
END	;
REP	;Med Route Report
ONE	;Map one Local Medication Routes to Standard Route
START	;
HD	;
ONEX	;
ONEUL	;Unlock Med route
UNL	;Unlock Med Route
MATCH	;Match File 51.2 Med Routes to Standard Med Routes

External References

Name	Field # of Occurrence
^%ZIS	REP+11
^%ZISC	END+6
^%ZTLOAD	REP+12
^DIC	MATCH+18, ONEX+2, ONEX+19
^DIE	MATCH+24, ONEX+24
EN^DIQ1	ONEX+5
^DIR	MATCH+15, MATCH+21, MATCH+28, MATCH+40, ONEX+13, ONEX+16, REP+7, REP+8, REP+11, REP+12 , END+3, HD+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option will find local Medication Routes marked for 'ALL PACKAGES' not",!,"mapped to a Standard Medication Route, and prompt you to map the local route.",! Line Location: MATCH+2
Function Call: WRITE	Prompt: "This mapping is necessary to perform Dosage checks.",!!,"Searching for unmapped Med Routes..." Line Location: MATCH+3
Function Call: WRITE	Prompt: !!,"Another person is editing this Med Route." Line Location: MATCH+13
Function Call: WRITE	Prompt: !!!,"Unable to make this match!!" Line Location: MATCH+26
Function Call: WRITE	Prompt: !!!,"Checking for any remaining unmapped Local Med Routes..." Line Location: MATCH+31
Function Call: WRITE	Prompt: !!!,"There are still local Med Routes marked for 'ALL PACKAGES' not yet mapped,",!,"see the 'Medication Route Mapping Report' option for more details.",! Line Location: MATCH+38
Function Call: WRITE	Prompt: !!!,"All Local Med Routes are mapped!",! Line Location: MATCH+39
Function Call: WRITE	Prompt: ! Line Location: MATCH+40
Function Call: WRITE	Prompt: ! Line Location: ONEX+2
Function Call: WRITE	Prompt: ! Line Location: ONEX+3
Function Call: WRITE	Prompt: !!!,$P($G(^PS(51.2,PSSMRB,0)),"^") Line Location: ONEX+7
Function Call: WRITE	Prompt: !!,"Another person is editing this Med Route." Line Location: ONEX+15
Function Call: WRITE	Prompt: ! Line Location: ONEX+17
Function Call: WRITE	Prompt: !!,"Mapping remains unchanged.",! Line Location: ONEX+21
Function Call: WRITE	Prompt: !!!,"Unable to make this match, Med Route is unmatched",! Line Location: ONEX+26
Function Call: WRITE	Prompt: !!!,"Local Route: '"_$P($G(^PS(51.2,PSSMRB,0)),"^")_"' has been "_$S(PSSMRB3:"remapped",1:"mapped")_" to",!,"Stnd Route: '"_$P($G(^PS(51.23,PSSMRBAZ,0)),"^")_"' FDB Route: '"_$P($G(^(0)),"^",2)_"'",! Line Location: ONEX+29
Function Call: WRITE	Prompt: !!!,"This report will print Medication Route mapping information for Medication",!,"Routes marked for ALL PACKAGES in the PACKAGE USE (#3) Field of the MEDICATION" Line Location: REP+1
Function Call: WRITE	Prompt: !,"ROUTES (#51.2) File.",! Line Location: REP+2
Function Call: WRITE	Prompt: !!,"No Action taken.",! Line Location: REP+7
Function Call: WRITE	Prompt: !!,"No Action taken.",! Line Location: REP+8
Function Call: WRITE	Prompt: !!?3,"This report is designed for 132 column format!",! Line Location: REP+10
Function Call: WRITE	Prompt: !!,"No Action taken.",! Line Location: REP+11
Function Call: WRITE	Prompt: !!,"Report queued to print.",! Line Location: REP+12
Function Call: WRITE	Prompt: !,?4,PSSMTEXP Line Location: STARTX+12
Function Call: WRITE	Prompt: !,?4,PSSMTEXP Line Location: STARTX+13
Function Call: WRITE	Prompt: !!,"TOTAL UNMAPPED MEDICATION ROUTES = "_$G(PSSMTCTB) Line Location: STARTX+19
Function Call: WRITE	Prompt: !!,"TOTAL LOCAL MEDICATION ROUTES = "_$G(PSSMTCTA),!,"TOTAL UNMAPPED LOCAL MEDICATION ROUTES = "_$G(PSSMTCTB) Line Location: STARTX+20
Function Call: WRITE	Prompt: !!,"End of Report." Line Location: END+2
Function Call: WRITE	Prompt: !!,"End of Report." Line Location: END+3
Function Call: WRITE	Prompt: ! Line Location: END+4
Function Call: WRITE	Prompt: @IOF Line Location: END+5
Function Call: WRITE	Prompt: @IOF Line Location: HD+2
Function Call: WRITE	Prompt: !,$S(PSSPTYPE="O":"MEDICATION ROUTES MAPPING EXCEPTION REPORT",1:"MEDICATION ROUTES MAPPING REPORT"),?114,"Page: "_$G(PSSTCT) Line Location: HD+2
Function Call: WRITE	Prompt: !!,"MEDICATION ROUTES (File 51.2)" Line Location: HD+3
Function Call: WRITE	Prompt: !!,"MEDICATION ROUTES (File 51.2)",?47,"STANDARD ROUTE",?100,"FDB ROUTE" Line Location: HD+4
Function Call: WRITE	Prompt: !?4,"OUTPATIENT EXPANSION",!,PSSTLINE Line Location: HD+5
Routine Call	DIE Line Location: MATCH+24 ONEX+24
Routine Call	DIC Line Location: MATCH+18 ONEX+2 ONEX+19
Routine Call	DIR Line Location: MATCH+15 MATCH+21 MATCH+28 MATCH+40 ONEX+13 ONEX+16 REP+7 REP+8 REP+11 REP+12 END+3 HD+1
Routine Call	%ZIS Line Location: REP+11

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(51.2 - [#51.2]	MATCH+6, MATCH+8, MATCH+10, MATCH+12, MATCH+25, MATCH+33, MATCH+35, MATCH+37, UNL+2, ONEX+7 , ONEX+14, ONEX+25, ONEX+29, ONEUL+2, STARTX+6, STARTX+7, STARTX+8, STARTX+9
^PS(51.23 - [#51.23]	MATCH+29, ONEX+10, ONEX+29, STARTX+13
^UTILITY("DIQ1"	ONEX+5!, ONEX+6!

Label References

Name	Line Occurrences
HD	STARTX+5, STARTX+15, STARTX+17
ONEUL	ONEX+20, ONEX+26, ONEX+30
ONEX	ONEX+9, ONEX+15, ONEX+20, ONEX+26, ONEX+31
STARTX	REP+13
UNL	MATCH+19, MATCH+22, MATCH+26, MATCH+30

Naked Globals

Name	Field # of Occurrence
^(0	MATCH+29, ONEX+29

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	REP+3~, REP+11!*, REP+12!
DA	MATCH+4~, MATCH+7!, MATCH+24!, ONE+1~, ONEX+1!, ONEX+4, ONEX+24!*
DIC	MATCH+4~, MATCH+7!, MATCH+16!, MATCH+18!, ONE+1~, ONEX+1!, ONEX+2!, ONEX+5, ONEX+17!, ONEX+19!
DIC("S"	MATCH+17, ONEX+2, ONEX+18*
DIC("W"	MATCH+16, ONEX+17
DIC(0	MATCH+16, ONEX+2, ONEX+17*
DIE	MATCH+4~, MATCH+7!, MATCH+24!, ONE+1~, ONEX+1!, ONEX+24!
>> DILOCKTM	MATCH+12, ONEX+14
DIQ	ONE+1~, ONEX+1!, ONEX+5!*, ONEX+6!
DIQ(0	ONEX+5*
DIR	MATCH+4~, MATCH+7!, MATCH+14!, MATCH+15!, MATCH+20!, MATCH+21!, MATCH+27!, MATCH+28!, MATCH+40!, ONE+1~ , ONEX+1!, ONEX+11!, ONEX+13!, ONEX+16!, REP+3~, REP+4!, REP+7!, REP+8!, REP+11!, REP+12! , START+2~, STARTX+1~, END+3!, HD+1!
DIR("?"	MATCH+14, MATCH+20, MATCH+27, ONEX+12, REP+5, REP+6
DIR("A"	MATCH+14, MATCH+20, MATCH+27, MATCH+40, ONEX+11, ONEX+16, REP+4, REP+7, REP+8, REP+11 , REP+12, END+3, HD+1*
DIR("B"	MATCH+14, MATCH+20, MATCH+27, ONEX+11, REP+4*
DIR(0	MATCH+14, MATCH+20, MATCH+27, MATCH+40, ONEX+11, ONEX+16, REP+4, REP+7, REP+8, REP+11 , REP+12, END+3, HD+1*
DIROUT	MATCH+4~, ONE+1~, REP+3~, START+2~, STARTX+1~
DIRUT	MATCH+4~, ONE+1~, REP+3~, START+2~, STARTX+1~
DR	MATCH+4~, MATCH+7!, MATCH+24!, ONE+1~, ONEX+1!, ONEX+5, ONEX+24!*
DTOUT	MATCH+4~, MATCH+14!, MATCH+15, MATCH+16!, MATCH+19, MATCH+20!, MATCH+21, MATCH+27!, MATCH+28, ONE+1~ , ONEX+2!, ONEX+3, ONEX+13!, ONEX+17!, ONEX+20, REP+3~, REP+4!, REP+7, START+2~, STARTX+1~
DUOUT	MATCH+4~, MATCH+14!, MATCH+15, MATCH+16!, MATCH+19, MATCH+20!, MATCH+21, MATCH+27!, MATCH+28, ONE+1~ , ONEX+2!, ONEX+3, ONEX+13!, ONEX+17!, ONEX+20, REP+3~, REP+4!, REP+7, START+2~, STARTX+1~
IO	REP+13, START+1
IO("Q"	REP+12
IOF	END+5, HD+2
IOP	REP+3~, REP+11!, REP+12!
IOSL	STARTX+15
IOST	STARTX+3
POP	REP+3~, REP+11!, REP+12!
PSSMRB	ONE+1~, ONEX+1!, ONEX+4*, ONEX+7, ONEX+8, ONEX+9, ONEX+10, ONEX+14, ONEX+21, ONEX+24 , ONEX+25, ONEX+29, ONEUL+1, ONEUL+2
PSSMRB1	ONE+1~, ONEX+1!, ONEX+8*, ONEX+28
PSSMRB2	ONE+1~, ONEX+1!, ONEX+23*, ONEX+28
PSSMRB3	ONE+1~, ONEX+1!, ONEX+28*, ONEX+29
PSSMRBA	ONE+1~, ONEX+1!, ONEX+5!
PSSMRBA(	ONEX+8, ONEX+9, ONEX+10, ONEX+21
PSSMRBAX	ONE+1~, ONEX+1!, ONEX+23*
PSSMRBAZ	ONE+1~, ONEX+1!, ONEX+25*, ONEX+26, ONEX+29
PSSMRLAA	MATCH+4~, MATCH+7!, MATCH+25*, MATCH+26, MATCH+29
PSSMRLFL	MATCH+4~, MATCH+5, MATCH+6, MATCH+15, MATCH+21, MATCH+28, MATCH+32, MATCH+33, MATCH+37, MATCH+38 , MATCH+39
PSSMRLND	MATCH+4~, MATCH+7!, MATCH+8, MATCH+9, MATCH+11, MATCH+29, MATCH+34!, MATCH+35, MATCH+36
PSSMRLNN	MATCH+4~, MATCH+6, MATCH+8, MATCH+10, MATCH+12, MATCH+24, MATCH+25, MATCH+32, MATCH+33*, MATCH+35 , MATCH+37, UNL+1, UNL+2
PSSMRLOK	MATCH+4~, MATCH+7!, MATCH+23*
PSSMRLP	MATCH+4~, MATCH+6, MATCH+33
PSSMT	STARTX+1~, STARTX+6*, STARTX+7
PSSMTCTA	STARTX+1~, STARTX+2, STARTX+11, STARTX+20
PSSMTCTB	STARTX+1~, STARTX+2, STARTX+11, STARTX+19, STARTX+20
PSSMTEXP	STARTX+1~, STARTX+9*, STARTX+12, STARTX+13, STARTX+14!
PSSMTI	STARTX+1~, STARTX+7*, STARTX+8, STARTX+9
PSSMTMAP	STARTX+1~, STARTX+9*, STARTX+10, STARTX+11, STARTX+13, STARTX+14!
PSSMTNAM	STARTX+1~, STARTX+9*, STARTX+12, STARTX+13, STARTX+14!
PSSONEXT	ONE+1~, ONEX+1!, ONEX+9, ONEX+11!, ONEX+13*
PSSPTYPE	REP+3~, REP+9*, STARTX+10, STARTX+12, STARTX+13, STARTX+19, STARTX+20, END+1!, HD+2, HD+3 , HD+4
PSSTCT	STARTX+1~, STARTX+3, HD+1, HD+2
PSSTDV	STARTX+1~, STARTX+3*, END+2, END+3, END+4, HD+1
PSSTLINE	STARTX+1~, STARTX+4!*, HD+5
PSSTOUT	STARTX+1~, STARTX+3, STARTX+6, STARTX+7, STARTX+15, STARTX+16, STARTX+18, END+3, HD+1
X	MATCH+4~, MATCH+7!, ONE+1~, REP+3~, START+2~, STARTX+1~
Y	MATCH+4~, MATCH+7!, MATCH+15, MATCH+21, MATCH+22, MATCH+23, MATCH+28, ONE+1~, ONEX+3, ONEX+4 , ONEX+13, ONEX+20, ONEX+23, REP+3~, REP+8, REP+9, START+2~, STARTX+1~, HD+1
ZTDESC	REP+3~, REP+12*
>> ZTQUEUED	END+6
>> ZTREQ	END+6*
ZTRTN	REP+3~, REP+12*
ZTSAVE	REP+3~
ZTSAVE("PSSPTYPE"	REP+12*
ZTSK	REP+3~

Customize PDF page

Package: Pharmacy Data Management

Routine: PSSMEDRT

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: