Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSSMEDRT

Package: Pharmacy Data Management

Routine: PSSMEDRT


Information

PSSMEDRT ;BIR/RTR-Medication Route Utilities ;06/14/07

Source Information

Source file <PSSMEDRT.m>

Call Graph

Call Graph Total: 7

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

Caller Graph

Caller Graph Total: 3

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~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All