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: PSSDOSCR

Package: Pharmacy Data Management

Routine: PSSDOSCR


Information

PSSDOSCR ;BIR/RTR-Dosage creation routine ;03/09/00

Source Information

Source file <PSSDOSCR.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 4 DD^%DT  (NOW,YX)^%DTC  EN^DIQ1  ^DIR  
Kernel 1 ^%ZTLOAD  
MailMan 1 ^XMD  
National Drug File 1 $$DFSU^PSNAPIS  
Pharmacy Data Management 1 ^PSSDOSCX  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Pharmacy Data Management 3 PSS DOSAGE CONVERSION  PSSDOSCX  PSSUTIL  

Entry Points

Name Comments DBIA/ICR reference
EN ;
END ;
ENDX ;
WHO ;
TEST ;
LOCAL ;DO LOCAL POSSIBLE DOSES HERE

External References

Name Field # of Occurrence
DD^%DT PSSDOSCR+7, PSSDOSCR+11
NOW^%DTC EN+2, END+1
YX^%DTC PSSDOSCR+18
^%ZTLOAD PSSDOSCR+17
EN^DIQ1 WHO+1
^DIR PSSDOSCR+15
$$DFSU^PSNAPIS EN+9
^PSSDOSCX EN+4
^XMD END+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!,$C(7),"Dosage conversion has already been queued for "_$G(Y),!
  • Line Location: PSSDOSCR+7
Function Call: WRITE
  • Prompt: !!!,$C(7),"Dosage conversion is currently running, cannot run at this time.",!
  • Line Location: PSSDOSCR+8
Function Call: WRITE
  • Prompt: !!,"This option will queue the conversion that populates the Possible Dosages",!,"and Local Possible Dosages in the Drug file. New dosages will be added to",!,"dosages that are already in the file.",!
  • Line Location: PSSDOSCR+9
Function Call: WRITE
  • Prompt: !!,"Nothing queued.",!
  • Line Location: PSSDOSCR+10
Function Call: WRITE
  • Prompt: !
  • Line Location: PSSDOSCR+17
Function Call: WRITE
  • Prompt: !!,"Nothing queued.",!
  • Line Location: PSSDOSCR+17
Function Call: WRITE
  • Prompt: !!,"Dosage Conversion queued!",!
  • Line Location: PSSDOSCR+20
Routine Call
  • DIR
  • Line Location:
    • PSSDOSCR+15

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(50.606 - [#50.606] EN+11, EN+14, EN+15, EN+19, EN+23, EN+27, EN+29, EN+31, EN+32, LOCAL+4
, LOCAL+5, LOCAL+7, LOCAL+9, LOCAL+15
^PS(50.607 - [#50.607] EN+11
^PS(50.7 - [#50.7] LOCAL+3
^PS(59.7 - [#59.7] PSSDOSCR+4, PSSDOSCR+6, PSSDOSCR+7, PSSDOSCR+11, PSSDOSCR+19*, EN+2*, END+1*, WHO+1
^PSDRUG - [#50] EN+5!, EN+6, EN+8, EN+18*, EN+21*, EN+22*, EN+25*, EN+26*, EN+29*, EN+30*
, EN+34*, LOCAL+2, LOCAL+5*, LOCAL+14*, LOCAL+19*, LOCAL+20*

Label References

Name Line Occurrences
ENDX PSSDOSCR+10, PSSDOSCR+17, PSSDOSCR+20
LOCAL EN+6
TEST LOCAL+12
WHO PSSDOSCR+11

Naked Globals

Name Field # of Occurrence
^( LOCAL+7, LOCAL+9, LOCAL+15
^("ND" EN+8
^(0 LOCAL+7, LOCAL+15
^(80 PSSDOSCR+19*, EN+2*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PSSDOSCR+18!, PSSDOSCR+19!, EN+2, END+1, ENDX+1!
%H PSSDOSCR+18*!
DA WHO+1*!
DIC WHO+1*!
DIQ WHO+1*!
DIQ(0 WHO+1*
DIR PSSDOSCR+13!, PSSDOSCR+15!
DIR("?" PSSDOSCR+13*, PSSDOSCR+14*
DIR("A" PSSDOSCR+13*
DIR("B" PSSDOSCR+13*
DIR(0 PSSDOSCR+13*
DR WHO+1*!
DUZ PSSDOSCR+17, PSSDOSCR+19
PSALL ENDX+1!, LOCAL+1!, LOCAL+13*, LOCAL+14
PSDOD ENDX+1!, LOCAL+1!, LOCAL+9*
PSDUPDPT LOCAL+1!, LOCAL+9*, LOCAL+13, TEST+6, TEST+7
PSI EN+1!, EN+13*, EN+14*, EN+17, EN+18, EN+22, EN+26, EN+30, ENDX+1!
PSNOUN ENDX+1!, LOCAL+1!, LOCAL+7*, LOCAL+15*
PSNOUNPA ENDX+1!, LOCAL+1!, LOCAL+7*, LOCAL+8, LOCAL+10, LOCAL+11, LOCAL+14, LOCAL+15*, LOCAL+16, LOCAL+17
, LOCAL+18, LOCAL+19
PSNOUNPT ENDX+1!, LOCAL+1!, LOCAL+7*, LOCAL+13, LOCAL+15*, LOCAL+19, TEST+2, TEST+3, TEST+4, TEST+6
, TEST+7
PSO EN+1!, EN+13*, EN+15*, EN+17, EN+18, EN+22, EN+26, EN+30, ENDX+1!
PSSBOTH EN+1!, EN+7*, EN+17*, ENDX+1!
PSSCLEAN PSSDOSCR+5*, EN+4, ENDX+2!
PSSD EN+1!, EN+6*, EN+8, EN+18, EN+21, EN+22, EN+25, EN+26, EN+29, EN+30
, EN+34, ENDX+1!, LOCAL+2, LOCAL+5, LOCAL+14, LOCAL+19, LOCAL+20
PSSDF EN+1!, EN+9*, EN+10, EN+11, EN+14, EN+15, EN+19, EN+23, EN+27, EN+29
, EN+31, EN+32, ENDX+1!
PSSDTEXT END+3!, END+4!
PSSDTEXT(1 END+3*
PSSDTEXT(2 END+3*
PSSDUPD EN+1!, EN+19*, EN+20, EN+21, EN+23*, EN+24, EN+25, EN+27*, EN+28, EN+29
, EN+31*, EN+32, EN+33, EN+34
PSSDUSP ENDX+1!
PSSDUZ PSSDOSCR+17*, EN+2, END+2, ENDX+2!
PSSFLAG EN+1!, EN+6, EN+7*, EN+26*, EN+30*, ENDX+1!
PSSFLAGZ EN+1!, EN+13*, EN+14*, EN+15*, ENDX+1!
PSSLTOT ENDX+1!, LOCAL+1!, LOCAL+5, LOCAL+6*, LOCAL+14*, LOCAL+15*, LOCAL+19*, LOCAL+20
PSSLTOTX ENDX+1!, LOCAL+1!, LOCAL+5*, LOCAL+20*
PSSND EN+1!, EN+8*, EN+9, ENDX+1!
PSSND1 EN+8*, EN+9, ENDX+1!
PSSNL LOCAL+13!, TEST+1!, TEST+4*, TEST+5, TEST+7
PSSNLF LOCAL+13!, TEST+1!, TEST+5*
PSSNLX LOCAL+13!, TEST+1!, TEST+6*, TEST+7*
PSSNODE EN+1!
PSSOI ENDX+1!, LOCAL+1!, LOCAL+2*, LOCAL+3
PSSOID ENDX+1!, LOCAL+1!, LOCAL+3*, LOCAL+4, LOCAL+5, LOCAL+7, LOCAL+9, LOCAL+15
PSSONLYI EN+1!, EN+7*, EN+22*, ENDX+1!, LOCAL+11, LOCAL+17
PSSONLYO EN+1!, EN+7*, EN+18*, ENDX+1!, LOCAL+10, LOCAL+18
PSSOUT PSSDOSCR+10!, PSSDOSCR+15*, ENDX+1!
PSSST EN+1!, EN+9*, EN+10, EN+12, EN+18, EN+20, EN+22, EN+24, EN+26, EN+28
, EN+30, EN+33, ENDX+1!
PSSSTART PSSDOSCR+11!*, PSSDOSCR+12, ENDX+1!
PSSSTOP PSSDOSCR+11!*, PSSDOSCR+12, ENDX+1!
PSSTODOS EN+1!, EN+20*, EN+21, EN+24*, EN+25, EN+28*, EN+29, EN+33*, EN+34, ENDX+1!
PSSTOT EN+1!, EN+18, EN+19*, EN+21*, EN+22, EN+23*, EN+25*, EN+26, EN+27*, EN+29*
, EN+30, EN+34*, ENDX+1!
PSSTOTX EN+1!, EN+18*, EN+22*, EN+26*, EN+30*, ENDX+1!
PSSTRAC PSSDOSCR+4*, PSSDOSCR+6, PSSDOSCR+7!, PSSDOSCR+8!, PSSDOSCR+11, PSSDOSCR+19, EN+2, END+1, ENDX+1!, WHO+1
PSSTRACK PSSDOSCR+6*, PSSDOSCR+7!, PSSDOSCR+8!, PSSDOSCR+10, PSSDOSCR+16*, EN+3*, EN+4, ENDX+1!
PSSUN EN+1!, EN+9*, EN+10, EN+11, EN+14, EN+15, EN+18, EN+22, EN+26, EN+30
, ENDX+1!
PSSWHO PSSDOSCR+11!, PSSDOSCR+12, ENDX+1!, WHO+1*
PSSWHOAR WHO+1!
PSSWHOAR(200 WHO+1
>> PZZ EN+5*
X PSSDOSCR+18!, PSSDOSCR+19!, EN+9*!
XMDUZ END+2*, END+4!
XMSUB END+2*, END+4!
XMTEXT END+4*!
XMY END+4!
XMY( END+2*
Y PSSDOSCR+7*!, PSSDOSCR+11*, PSSDOSCR+15
>> ZTDESC PSSDOSCR+17*
ZTDTH PSSDOSCR+17!
>> ZTIO PSSDOSCR+17*
>> ZTQUEUED ENDX+2
>> ZTREQ ENDX+2*
>> ZTRTN PSSDOSCR+17*
>> ZTSAVE("PSSCLEAN" PSSDOSCR+17*
>> ZTSAVE("PSSDUZ" PSSDOSCR+17*
>> ZTSAVE("PSSTRAC" PSSDOSCR+17*
>> ZTSAVE("PSSTRACK" PSSDOSCR+17*
>> ZTSK PSSDOSCR+17
>> ZTSK("D" PSSDOSCR+18
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All