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

Package: Auto Replenishment Ward Stock

Routine: PSGWCLP


Information

PSGWCLP ;BHAM ISC/CML-Clear AMIS Exceptions Print ; 17 Aug 93 / 9:04 AM

Source Information

Source file <PSGWCLP.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
Auto Replenishment Ward Stock 1 $$PSGWDT^PSGWUTL1  
VA Fileman 1 YN^DICN  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Auto Replenishment Ward Stock 1 PSGWCL  

Entry Points

Name Comments DBIA/ICR reference
QUIT
EN ;
HDR ;
CHKDATA ;
PRT ;WRITE DATA LINES
SET ;
DONE
ASK ;ASK TO PRINT WORKSHEET

External References

Name Field # of Occurrence
^%ZIS ASK+4
HOME^%ZIS ASK+6
^%ZISC QUIT+1
^%ZTLOAD ASK+6
YN^DICN ASK+1
$$PSGWDT^PSGWUTL1 EN+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Do you want to print a worksheet first"
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !?5,"Enter:",!?7,"""YES"" if you wish to print a worksheet of the drugs with incomplete data.",!?7,"""NO"" or ""^"" if you do not want to print a worksheet."
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !!,"The right margin for this worksheet is 80",!,"You may queue it to run at a later time.",!!
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR WORKSHEET PRINTED!!"
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DONE+0
Function Call: WRITE
  • Prompt: !!,"=> ",DRGNM
  • Line Location: PRT+1
Function Call: WRITE
  • Prompt: !!?23,$S(POU:$J(POU,8,2),1:"__________"),?39,$S(DISP:$J(DISP,7),1:"_______")
  • Line Location: PRT+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,"INCOMPLETE AMIS DATA WORKSHEET",?72,"PAGE ",PG,!,"FOR PERIOD ",HBDT," to ",HEDT,?61,HDT,!!,"=> DRUG",?23,"PRICE PER",?35,"DISPENSE UNITS",?51,"AR/WS AMIS",?63,"AR/WS AMIS"
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !?23,"ORDER UNIT",?35,"PER ORDER UNIT",?51,"CATEGORY",?63,"CONVERSION #",!,LN
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !?5,"** It appears that the missing data for this drug has been supplied.",!?5,"** Please verify the data when editing this drug."
  • Line Location: CHKDATA+1
Routine Call
  • %ZIS
  • Line Location:
    • ASK+6
Routine Call
  • %ZIS
  • Line Location:
    • ASK+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" EN+1
^PSDRUG - [#50] SET+2
^PSI(58.5 - [#58.5] EN+2, SET+1, SET+2

Label References

Name Line Occurrences
ASK ASK+2
CHKDATA PRT+1
HDR EN+1, PRT+1
QUIT ASK+6
SET EN+2

Naked Globals

Name Field # of Occurrence
^("PSG" SET+2
^(0 SET+2
^(660 SET+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ASK+1*, ASK+2, QUIT!
%H QUIT!
%I QUIT!
%ZIS ASK+4!*
%ZIS("B" ASK+4*
ACAT QUIT!, SET+3*, SET+4, PRT+3
ACON QUIT!, SET+3*, SET+4, PRT+3
AMDT EN+2*, QUIT!, SET+1, SET+2
>> BDT EN+1, EN+2
DISP QUIT!, SET+3*, SET+4, PRT+2
DRG EN+2*, QUIT!, SET+1, SET+2
DRGDA QUIT!, SET+2*, PRT+1
DRGNM QUIT!, SET+2*, SET+3, PRT+1
>> EDT EN+1, EN+2
>> G ASK+5*
HBDT EN+1*, QUIT!, HDR+1
HDT EN+1*, QUIT!, HDR+1
HEDT EN+1*, QUIT!, HDR+1
IO ASK+7
IO("Q" ASK+5!, QUIT!
IOF DONE, HDR+1
IOP ASK+4!
IOSL PRT+1
IOST DONE
LN EN+1*, QUIT!, HDR+2
LOC QUIT!
LOC( SET+2, PRT+1*
LOC1 QUIT!, SET+2*, SET+3
LOC2 QUIT!, SET+2*, SET+3
MSG EN+1*, QUIT!, SET+4*, PRT+1, CHKDATA+1*
PG EN+1*, QUIT!, HDR+1*
>> POP ASK+4
POU QUIT!, SET+3*, SET+4, PRT+2
>> QUEFLG ASK+5*
SITE EN+2*, QUIT!, SET+1, SET+2
X QUIT!
Y EN+1*, QUIT!
>> ZTDESC ASK+5*
>> ZTQUEUED QUIT+2
>> ZTREQ QUIT+2*
>> ZTRTN ASK+5*
>> ZTSAVE( ASK+5*
ZTSK ASK+6!, QUIT!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All