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

Package: Auto Replenishment Ward Stock

Routine: PSGWPI1


Information

PSGWPI1 ;BHAM ISC/MPH,CML-Print AOU Inventory Sheet - CONTINUED ; 18 Jun 93 / 10:40 AM

Source Information

Source file <PSGWPI1.m>

Call Graph

Call Graph Total: 1

Package Total Call Graph
Auto Replenishment Ward Stock 1 (BARWRT,EN1,EN2)^PSGWPI2  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Auto Replenishment Ward Stock 2 PSGWPI  PSGWPIS  

Entry Points

Name Comments DBIA/ICR reference
LOC ;Build item address
END
START
PSGDR
QCODE
WLOOP
PNT
PSG3
CHKINA
EN1 ; PSGWIDA = DA of inventory being edited
SINL
WENT
PSGTYP
PSG2
SIN ;Sort the ward item list
PSG1

External References

Name Field # of Occurrence
BARWRT^PSGWPI2 PSGDR+1
EN1^PSGWPI2 WENT, PSGDR+1, PSGDR+2
EN2^PSGWPI2 LOC+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !,?17,PSG1
  • Line Location: PSG1+0
Function Call: WRITE
  • Prompt: " ",$P(^PSI(58.17,EXP,0),"^",3)
  • Condition for execution: EXP>0
  • Line Location: PSG1+0
Function Call: WRITE
  • Prompt: !,?10,PSGDR
  • Line Location: PNT+0
Function Call: WRITE
  • Prompt: ?50,"*"
  • Line Location: PNT+0
Function Call: WRITE
  • Prompt: ?50,"*"
  • Line Location: PNT+1
Function Call: WRITE
  • Prompt: ?51,$J(STLEV,3)
  • Line Location: PNT+2
Function Call: WRITE
  • Prompt: ?58,$E($P(^(0),"^",1),1,8)
  • Line Location: QCODE+0
Function Call: WRITE
  • Prompt: ?66,"_____"
  • Line Location: QCODE+1
Function Call: WRITE
  • Prompt: ?75,$S($P(LOC,"^",11)]"":$J($P(LOC,"^",11),5),1:" "),?86,$S(+$P(LOC,"^",12):$J($P(LOC,"^",12),5),1:" "),?98,"______"
  • Line Location: QCODE+2
Function Call: WRITE
  • Prompt: ?TAB1,"______",?TAB2,"E O D C"
  • Line Location: QCODE+3
Function Call: WRITE
  • Prompt: !?14,"Expiration Date: ",Y
  • Line Location: QCODE+4
Function Call: WRITE
  • Prompt: !?14,"*Inactivated item, pull existing stock"
  • Line Location: QCODE+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS(1 - [#3.5] EN1+2
^%ZIS(2 - [#3.2] EN1+2
^DD("DD" EN1+1, QCODE+4
^PSDRUG - [#50] LOC+2, QCODE
^PSI(58.1 - [#58.1] SINL, SINL+1, CHKINA, LOC+4, PSGDR, PNT*, PNT+1*, QCODE, QCODE+4
^PSI(58.16 - [#58.16] SINL+1, LOC+3
^PSI(58.17 - [#58.17] PSG1
^PSI(58.19 - [#58.19] EN1+5, START, SIN+1!, CHKINA*, WENT, PSG1, PSG2, PSG3, PSGTYP, PSGTYP+1
, PSGDR

Label References

Name Line Occurrences
CHKINA SINL+1
LOC CHKINA
PSG1 PSG2
PSG2 PSG3
PSG3 PSGTYP+1
PSGDR PSGDR+1, QCODE+6
PSGTYP PSGDR
SIN WLOOP
SINL SINL+1, SINL+2
START EN1+4
WENT WLOOP

Naked Globals

Name Field # of Occurrence
^( SINL, PSGTYP!, PSGDR, QCODE
^("BAR" EN1+2
^("EXP" QCODE+4
^("I" CHKINA
^(0 SINL+1, LOC+2, LOC+3, QCODE

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AOU EN1+4
>> BARFLG EN1+2, EN1+3, PSGDR+1
>> DRGDA PSGDR*
DT EN1+1
>> EXP PSG1*
>> I SIN+1*, SINL+1*, LOC+3
IOF END+1
>> IOS EN1+2
IOSL PSGDR+2
IOST END+1
>> J EN1+2*, EN1+5*, SIN+1*, SINL*, SINL+1, CHKINA, LOC+4
>> K SINL*, CHKINA, LOC+1, LOC+2
>> K1 LOC+1*
>> LFC PSGTYP+1*
>> LNCNT EN1+1*, PSG1*, PSG3*, PSGDR+1
>> LOC PSGDR*, PNT, PNT+1, QCODE+2
>> MH QCODE*
>> NN LOC+1*
>> PSG1 CHKINA, WENT*, PSG1*, PSG2, PSG3, PSGTYP, PSGTYP+1, PSGDR
>> PSG2 CHKINA, PSG1*, PSG2*, PSG3, PSGTYP, PSGTYP+1, PSGDR
>> PSG3 CHKINA, PSG2*, PSG3*, PSGTYP, PSGTYP+1, PSGDR
>> PSGDA WLOOP*, SIN+1, SINL, SINL+1, CHKINA, LOC+4, WENT, PSG1, PSG2, PSG3
, PSGTYP, PSGTYP+1, PSGDR, PNT, PNT+1, QCODE, QCODE+4
>> PSGDDA PSGDR*, PNT, PNT+1, QCODE, QCODE+4
>> PSGDR CHKINA, LOC+2*, PSGTYP+1*, PSGDR*, PNT
PSGINAD PNT+1*, QCODE+5!
>> PSGNT SIN+1*, SINL+1
>> PSGPAGE EN1+1*
>> PSGSORTK WLOOP*
>> PSGTN SIN+1*, SINL+1, LOC+3
>> PSGTODAY EN1+1*
>> PSGTYP CHKINA, LOC+3*, PSG3*, PSGTYP+1*, PSGDR
>> PSGW("PO" EN1+1!, EN1+4*, EN1+5*, WLOOP
>> PSGWBAR0 EN1+3
>> PSGWBAR1 EN1+3
>> PSGWBARS EN1+3*
>> PSGWDT CHKINA, PNT+1
>> PSGWIDA EN1+5, START, SIN+1, CHKINA, LOC+4, WENT, PSG1, PSG2, PSG3, PSGTYP
, PSGTYP+1, PSGDR
>> PSGWIN START*
>> PSGWSITE QCODE+2, QCODE+3
>> Q PSGTYP*
>> SK EN1+5*
>> STKCHG END, PNT*
>> STLEV PSGDR*, PNT+2
>> TAB1 QCODE+3*
>> TAB2 QCODE+3*
>> TYPE PSGTYP*
>> Y EN1+1*, QCODE+4*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All