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

Package: Auto Replenishment Ward Stock

Routine: PSGWAIO


Information

PSGWAIO ;BHAM ISC/PTD,CML-AOU Inventory Outline for Selected Date Range ; 11 Aug 93 / 7:54 AM

Source Information

Source file <PSGWAIO.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
Auto Replenishment Ward Stock 1 ($$PSGWDT,HELP,SS)^PSGWUTL1  
VA FileMan 1 ^%DT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Auto Replenishment Ward Stock 1 PSGW WARD INV PRINT  

Entry Points

Name Comments DBIA/ICR reference
BDT
EDT
DEV
ENQ ;ENTRY POINT WHEN QUEUED
DTLP
INVLP
PRINT ;PRINT AOU INVENTORY OUTLINE
AOU
WKDT
DUZ
DONE
END
HDR ;PRINT REPORT MAIN HEADER
BUILD ;STORE INVENTORY DATA FOR DATE RANGE
AOULP
TYPLP
SETGL
WRTYPE
PRTCHK ;

External References

Name Field # of Occurrence
^%DT BDT, EDT
^%ZIS DEV
HOME^%ZIS DEV+2
^%ZISC END
^%ZTLOAD DEV+2
$$PSGWDT^PSGWUTL1 HDR+1
HELP^PSGWUTL1 PRTCHK+1
SS^PSGWUTL1 DONE+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"The right margin for this report is 80.",!,"You may queue the report to print at a later time.",!!
  • Line Location: EDT+1
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!"
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: !?5,"NO INVENTORIES LISTED FOR SELECTED DATES."
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !?5,Y
  • Line Location: WKDT+0
Function Call: WRITE
  • Prompt: ?39,$J(ID,6)
  • Line Location: WKDT+1
Function Call: WRITE
  • Prompt: ?51,$P(^VA(200,IDUZ,0),"^")
  • Line Location: DUZ+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DONE+0
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,"PHARMACY AREA OF USE INVENTORY LIST FROM "
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: Y," TO "
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: Y," TO "
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: ?70,"PAGE ",PGCT
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!,"==> AREA OF USE",!?5,"INVENTORY DATE/TIME",?27,"DAY/WEEK",?39,"INV. ID#",?51,"RESPONSIBLE PERSON",!?22,"TYPES INVENTORIED",!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!,"==> AREA OF USE",!?5,"INVENTORY DATE/TIME",?27,"DAY/WEEK",?39,"INV. ID#",?51,"RESPONSIBLE PERSON",!?22,"TYPES INVENTORIED",!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !?22,$S($D(^PSI(58.16,($P(LOC,",",P)),0)):$P(^(0),"^"),1:"TYPE NAME HAS BEEN DELETED IN FILE 58.16")
  • Line Location: WRTYPE+0
Function Call: READ
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: PRTCHK+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" WKDT, HDR+1
^PSI(58.1 - [#58.1] AOU
^PSI(58.16 - [#58.16] WRTYPE
^PSI(58.19 - [#58.19] DTLP, INVLP, BUILD+1, AOULP, TYPLP
^TMP("PSGWIO" ENQ+1!, PRINT+1, AOU, WKDT+1, DUZ, END!, SETGL*
^VA(200 - [#200] DUZ

Label References

Name Line Occurrences
AOULP TYPLP
BUILD INVLP
DONE DEV+2, PRINT+1, AOU
DTLP INVLP
DUZ WKDT+1
END BDT, EDT, DEV
HDR PRINT+1, PRTCHK+2
PRINT DTLP
PRTCHK AOU, WKDT, DUZ
SETGL TYPLP
TYPLP TYPLP
WKDT AOU
WRTYPE DUZ

Naked Globals

Name Field # of Occurrence
^( DUZ
^(0 BUILD+1, WRTYPE

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END!
%DT BDT*!, EDT*!
%DT("A" BDT*, EDT*
%DT(0 EDT*
%H END!
%I END!
%ZIS DEV!*
%ZIS("B" DEV*
ANS END!, PRTCHK+1*
AOU PRINT+1*, AOU*, WKDT+1, DUZ, END!, BUILD+1*, AOULP*, TYPLP, SETGL
BDT BDT*, EDT, ENQ+1, END!, HDR+1
DTIME PRTCHK+1
EDT EDT*, DTLP, END!, HDR+1
G DEV+1*, END!
ID WKDT+1*, DUZ, END!
IDUZ WKDT+1*, DUZ*, END!
INVDA DTLP*, INVLP*, END!, BUILD+1, AOULP, TYPLP, SETGL
INVDT ENQ+1*, DTLP*, INVLP, AOU*, WKDT, WKDT+1, DUZ, END!, SETGL
INVDUZ END!, BUILD+1*, SETGL
IO DEV+3
IO("Q" DEV+1!, END!
IOF DONE, HDR+1
IOP DEV!
IOSL AOU, WKDT, DUZ
IOST DONE, DONE+1, PRTCHK+1
J INVLP*, AOU*, END!, HDR+2*
K AOU*, END!
L WKDT+1*, END!
LOC DUZ*, END!, WRTYPE
M WKDT+1*, END!
N DUZ*, END!
P DUZ*, END!, WRTYPE
PCL DUZ*, END!
PGCT PRINT+1*, END!, HDR+2*
>> POP DEV
QFLG DEV+2*, PRINT+1*, AOU, WKDT, WKDT+1, DUZ, DONE+1, END!, PRTCHK+1*
TYP END!, AOULP*, TYPLP*
TYPSTR END!, AOULP*, TYPLP*, SETGL
WD AOU*, WKDT+1*, DUZ, END!
WKD END!, BUILD+1*, SETGL
Y BDT, EDT, WKDT*, END!, HDR+1*
>> ZTDESC DEV+1*
>> ZTQUEUED END+1
>> ZTREQ END+1*
>> ZTRTN DEV+1*
>> ZTSAVE( DEV+1*
ZTSK DEV+2!, END!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All