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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSAENTO

Package: Drug Accountability

Routine: PSAENTO


Information

PSAENTO ;BIR/LTL,JMB-Set Up/Edit a Pharmacy Location - CONT'D ;7/23/97

Source Information

Source file <PSAENTO.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 5 NOW^%DTC  ^DIC  FILE^DICN  ^DIE  ^DIR  
Drug Accountability 2 ^PSADRUG  ^PSAPSI4  
IFCAP 1 ($$DESCR,$$INVNAME)^PRCPUX1  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Drug Accountability 2 PSAENT  PSALOCO  

Entry Points

Name Comments DBIA/ICR reference
QUIT
DAVEB
DRUGS
ED
IV
ITEM
QUES
IV1
OPC
UNLINK ;Unlink IV Rooms
FIND
LOOP
OP

External References

Name Field # of Occurrence
NOW^%DTC ITEM+3
^DIC OP+4, DAVEB+5, ITEM, ITEM+5, FIND+1, FIND+5, IV1+8
FILE^DICN IV1+20
^DIE OP+7, OP+8, OPC+1, ED, FIND+2, UNLINK+9
^DIR QUES+2, QUES+3, LOOP+2, DRUGS, IV, IV1+5, IV1+16, UNLINK+2, UNLINK+7
$$DESCR^PRCPUX1 LOOP+2
$$INVNAME^PRCPUX1 QUES
^PSADRUG DRUGS
^PSAPSI4 FIND+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Outpatient site selection affects the collection of dispensing data.",!
  • Line Location: OPC+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DRUGS+0
Function Call: WRITE
  • Prompt: !
  • Line Location: IV+0
Function Call: WRITE
  • Prompt: @IOF,!?((80-PSALEN)/2),$P($G(^PS(59,+PSAOSIT,0)),"^")_" Outpatient Site",!!
  • Line Location: IV1+0
Function Call: WRITE
  • Prompt: ?27,PSANOW,!
  • Line Location: IV1+4
Function Call: WRITE
  • Prompt: !!,"Enter the IV rooms that receive IVs from the outpatient site.",!
  • Line Location: IV1+6
Function Call: WRITE
  • Prompt: !!,"<< "_Y(0,0)_" is already linked to the "_$P($G(^PS(59,+$P($G(^PSD(58.8,PSALOC,0)),"^",10),0)),"^"),!?4,"outpatient site in the "_$P($G(^PSD(58.8,PSALOC,0)),"^")_" pharmacy location. >>",!
  • Line Location: IV1+10
Function Call: WRITE
  • Prompt: !!,"<< "_Y(0,0)_" is already linked to this outpatient site. >>",!
  • Line Location: IV1+11
Function Call: WRITE
  • Prompt: !!,"<< No IV rooms were selected to be linked to the Outpatient site. >>",!
  • Line Location: IV1+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: IV1+14
Function Call: WRITE
  • Prompt: !?((80-PSALEN)/2),$P($G(^PS(59,+PSAOSIT,0)),"^")_" Outpatient Site",!!,"IV rooms to be linked:"
  • Line Location: IV1+14
Function Call: WRITE
  • Prompt: ?23,PSAIV,!
  • Line Location: IV1+15
Function Call: WRITE
  • Prompt: !
  • Line Location: IV1+18
Function Call: WRITE
  • Prompt: !,"Linking IV rooms"
  • Line Location: IV1+19
Function Call: WRITE
  • Prompt: "."
  • Line Location: IV1+20
Function Call: WRITE
  • Prompt: !,"The IV rooms were linked successfully."
  • Line Location: IV1+21
Function Call: WRITE
  • Prompt: !
  • Line Location: UNLINK+1
Function Call: WRITE
  • Prompt: @IOF,!?((80-PSALEN)/2),$P($G(^PS(59,+PSAOSIT,0)),"^")_" Outpatient Site",!!
  • Line Location: UNLINK+4
Function Call: WRITE
  • Prompt: !,"To be unlinked:"
  • Line Location: UNLINK+5
Function Call: WRITE
  • Prompt: ?16,PSANOW,!
  • Line Location: UNLINK+6
Function Call: WRITE
  • Prompt: !,"No IV rooms were unlinked."
  • Line Location: UNLINK+7
Function Call: WRITE
  • Prompt: "."
  • Line Location: UNLINK+9
Function Call: WRITE
  • Prompt: !,"IV rooms unlinked."
  • Line Location: UNLINK+10
Routine Call
  • DIE
  • Line Location:
    • OP+7
    • OP+8
    • OPC+1
    • ED
    • FIND+2
    • UNLINK+9
Routine Call
  • DIC
  • Line Location:
    • OP+4
    • DAVEB+5
    • ITEM
    • ITEM+5
    • FIND+1
    • FIND+5
    • IV1+8
Routine Call
  • DIR
  • Line Location:
    • QUES+2
    • QUES+3
    • LOOP+2
    • DRUGS
    • IV
    • IV1+5
    • IV1+16
    • UNLINK+2
    • UNLINK+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSD(58.8 - [#58.8] Classic Fileman Calls
^PSD(58.81 - [#58.81] Classic Fileman Calls
^PS(59 - [#59] Classic Fileman Calls
^PS(59.5 - [#59.5] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(441 - [#441] LOOP
^PRCP(445 ED, LOOP, ITEM
^PS(52.6 - [#52.6] FIND+6
^PS(52.7 - [#52.7] FIND+6
^PS(59 - [#59] OP+1, OP+5, IV+1, IV1, IV1+10, IV1+14, UNLINK+4
^PS(59.5 - [#59.5] IV1+3, UNLINK+9
^PSD(58.8 - [#58.8] OP, OP+7, OP+8, DAVEB, DAVEB+6, OPC+2, QUES+4, LOOP, ITEM+4*, FIND+3
, IV, IV1+1, IV1+3, IV1+9, IV1+10, IV1+17*
^PSD(58.81 - [#58.81] ITEM+6, FIND*, FIND+1
^PSDRUG - [#50] LOOP+1, LOOP+2, FIND+6
^PSDRUG("AB" LOOP

Label References

Name Line Occurrences
DRUGS OPC+5, ED
FIND FIND
IV1 IV1+16
OPC OP
QUIT OP+1, DAVEB, OPC+1, OPC+3, ED, IV, IV1+5, IV1+13
UNLINK IV1+5

Naked Globals

Name Field # of Occurrence
^("I" LOOP+1
^(0 QUES+4*, ITEM, FIND+3*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ITEM+3!
DA OP+7*, OP+8*, OPC+1*, ED*!, FIND+2*, FIND+5!, UNLINK+9*
DA(1 ITEM*, ITEM+5*, FIND+5*, IV1+20*, UNLINK+9*
DA(2 ITEM+5*, FIND+5*
DD IV1+18!, IV1+20!
DIC OP+4*!, DAVEB+2*, DAVEB+5!, ITEM*!, ITEM+5*!, FIND+1*!, FIND+4*, FIND+5!, IV1+7!*, IV1+13!
, IV1+18*, IV1+22!
DIC("A" OP+4*, DAVEB+2*
DIC("B" DAVEB+2*
DIC("DR" DAVEB+3*, LOOP+3*, ITEM+5*
DIC("S" DAVEB+3*
DIC("W" DAVEB+4*
DIC(0 OP+4*, DAVEB+2*, ITEM*, ITEM+5*, FIND+1*, FIND+4*, IV1+7*, IV1+18*
DIE OP+7*!, OP+8*!, OPC+1*!, ED*!, FIND+2*!, UNLINK+9*, UNLINK+10!
DINUM ITEM+5*, FIND+1*, FIND+4*, IV1+20*, IV1+22!
DIR QUES+2!, QUES+3!, LOOP+2!, DRUGS!, IV!, IV1+5!, IV1+16!, UNLINK+7!
DIR("?" QUES+1*, QUES+3*
DIR("A" QUES*, QUES+3*, LOOP+2*, DRUGS*, IV*, IV1+5*, IV1+16*, UNLINK+2*, UNLINK+7*
DIR("B" QUES+3*, LOOP+2*, DRUGS*, IV*, IV1+16*, UNLINK+1*, UNLINK+7*
DIR(0 QUES*, QUES+3*, LOOP+2*, DRUGS*, IV*, IV1+5*, IV1+16*, UNLINK+1*, UNLINK+7*
>> DIRUT ED, QUES+3, LOOP, IV1+5, UNLINK+2, UNLINK+7
DLAYGO DAVEB+2*, DAVEB+5!, ITEM*!, ITEM+5*!, FIND+1*!, FIND+4*, FIND+5!
DO IV1+18!, IV1+20!
>> DR OP+7*, OP+8*, OPC+1*, ED*, FIND+2*, UNLINK+9*
DT LOOP+1, ITEM+5
>> DTOUT IV1+8
>> DUOUT IV1+8
IOF IV1, IV1+14, UNLINK+4
>> PSA OP+1*
>> PSADEL UNLINK+3*, UNLINK+5
>> PSADEL( UNLINK+2*, UNLINK+3, UNLINK+6, UNLINK+9
>> PSADRUG LOOP*, LOOP+1, LOOP+2, ITEM+4, ITEM+5, FIND+3, FIND+5, FIND+6
PSADT OPC+4~, ITEM+3*
>> PSAINV ED, QUES, LOOP, LOOP+2, ITEM
>> PSAIT QUES+2*, LOOP*, LOOP+2, ITEM, FIND+6*
>> PSAIT(1 FIND+6*
>> PSAIT(2 FIND+6*
>> PSAIT(4 FIND+6*
>> PSAITY DAVEB+2, DAVEB+4
PSAIV IV1+13*, IV1+15*, IV1+16!, IV1+18*, IV1+20*, IV1+22!
PSAIV( IV1+12*, IV1+15, IV1+20
PSAIV("" IV1+13
>> PSAIVLOC IV1+9*, IV1+10, IV1+11
>> PSALEN IV+1*, IV1, IV1+14, UNLINK+4
>> PSALOC OP, OP+7, OP+8, DAVEB+5*, DAVEB+6*, OPC+1, OPC+2, OPC+3, ED, QUES+4
, LOOP, ITEM, ITEM+4, ITEM+5, FIND+3, FIND+5, IV, IV1+1, IV1+3, IV1+10
, IV1+11, IV1+17, IV1+18, IV1+20, UNLINK+9
>> PSALOCN DAVEB+5*, DAVEB+6*
>> PSANOW IV1+2*, IV1+3*, IV1+4*, UNLINK+1*, UNLINK+2*, UNLINK+3*, UNLINK+5*, UNLINK+6*, UNLINK+9*
>> PSANOW( IV1+3*, IV1+4, UNLINK+2*
>> PSAOC OP+7
>> PSAOSIT OP+4*, OP+5*, OP+7, OP+8, DAVEB, DAVEB+6, OPC+2*, DRUGS+1, IV+1, IV1
, IV1+14, UNLINK+4
>> PSAPVMEN OPC+5
PSAQTY OPC+4~, ITEM*
PSAT OPC+4~, FIND*, FIND+1, FIND+2, FIND+4
PSAY OPC+4~, QUES+3*, LOOP+3, ITEM+1
U OP, DAVEB+6, LOOP+2, ITEM, FIND, FIND+6
X LOOP+2*, ITEM+5*, FIND+1*, FIND+4*, IV1+20*, IV1+22!
Y OP+1*, OP+4, DAVEB, DAVEB+5, OPC+1, ED, QUES+2, QUES+3, LOOP+2, ITEM
, DRUGS, IV, IV1+5, IV1+8, IV1+9, IV1+10!, IV1+11!, IV1+12, IV1+16, UNLINK+2
, UNLINK+7
Y(0 DAVEB+5, IV1+10, IV1+11, IV1+12
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All