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

Package: Auto Replenishment Ward Stock

Routine: PSGWDUP1


Information

PSGWDUP1 ;BHAM ISC/KKA-Report for Duplicate Entries in ITEM subfile-CONTINUED ; 17 Aug 93 / 10:58 AM

Source Information

Source file <PSGWDUP1.m>

Call Graph

Call Graph Total: 1

Package Total Call Graph
VA Fileman 1 Y^DIQ  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Auto Replenishment Ward Stock 1 PSGWDUP  

Entry Points

Name Comments DBIA/ICR reference
END
RETHEAD ;** header for return data **
INV ;** display inventory data **
OD ;** display on-demand data **
RET ;** display return data **
ONE ;** display information for one drug **
PAGE ;** header for page **
ENTRY ;** entry point when queued **
INVHEAD ;** header for inventory data **
ODHEAD ;** header for on-demand data **

External References

Name Field # of Occurrence
Y^DIQ RET+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue: "
  • Line Location: ENTRY+4
Function Call: WRITE
  • Prompt: !,@IOF
  • Line Location: END+0
Function Call: WRITE
  • Prompt: !,"INVENTORIES:",!,?10,"No inventories shown"
  • Line Location: INV+1
Function Call: WRITE
  • Prompt: !,?CONTLTH,CONT
  • Line Location: INV+4
Function Call: WRITE
  • Prompt: !,?10,Y,?35,$S($P(PSGWINND,"^",4)=1:"YES",1:"NO"),?47,$P(PSGWINND,"^",5),?62,$P(PSGWINND,"^",6)
  • Line Location: INV+6
Function Call: WRITE
  • Prompt: !,"INVENTORIES: "
  • Line Location: INVHEAD+1
Function Call: WRITE
  • Prompt: !!,?10,"DATE/TIME",?33,"COMPILED",?60,!,?13,"FOR",?35,"INTO",?45,"DISPENSE",!,?10,"INVENTORY",?35,"AMIS",?45,"QUANTITY",?60,"ON HAND",!
  • Line Location: INVHEAD+2
Function Call: WRITE
  • Prompt: ?10
  • Line Location: INVHEAD+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: INVHEAD+3
Function Call: WRITE
  • Prompt: !,?CONTLTH,CONT
  • Line Location: RET+1
Function Call: WRITE
  • Prompt: !!,"RETURNS:",!,?10,"No returns shown"
  • Line Location: RET+2
Function Call: WRITE
  • Prompt: !,?CONTLTH,CONT
  • Line Location: RET+5
Function Call: WRITE
  • Prompt: !,?10,Y,?27,$P(PSGWRTND,"^",2),?37,$S($P(PSGWRTND,"^",4)=1:"YES",1:"NO")
  • Line Location: RET+7
Function Call: WRITE
  • Prompt: ?50,Y,!
  • Line Location: RET+8
Function Call: WRITE
  • Prompt: !!,"RETURNS: "
  • Line Location: RETHEAD+1
Function Call: WRITE
  • Prompt: !!,?35,"COMPILED",!,?10,"DATE OF",?25,"RETURN",?37,"INTO",?50,"RETURN",!,?10,"RETURN",?25,"QUANTITY",?37,"AMIS",?50,"REASON(S)",!
  • Line Location: RETHEAD+2
Function Call: WRITE
  • Prompt: ?10
  • Line Location: RETHEAD+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: RETHEAD+3
Function Call: WRITE
  • Prompt: !,?CONTLTH,CONT
  • Line Location: OD+1
Function Call: WRITE
  • Prompt: !!,"ON-DEMANDS: ",!,?10,"No on-demands shown"
  • Line Location: OD+2
Function Call: WRITE
  • Prompt: !,?CONTLTH,CONT
  • Line Location: OD+5
Function Call: WRITE
  • Prompt: !,?10,Y,?30,$P(PSGWODND,"^",2),?50,$S($P(PSGWODND,"^",3):$P($G(^VA(200,$P(PSGWODND,"^",3),0)),"^"),1:"")
  • Line Location: OD+6
Function Call: WRITE
  • Prompt: ?72,$S($P(PSGWODND,"^",4)=1:"YES",1:"NO"),?85,$S($P(PSGWODND,"^",5):$P($G(^VA(200,+$P(PSGWODND,"^",5),0)),"^"),1:"")
  • Line Location: OD+7
Function Call: WRITE
  • Prompt: ?105,Y
  • Line Location: OD+7
Function Call: WRITE
  • Prompt: !!,"ON-DEMANDS:"
  • Line Location: ODHEAD+1
Function Call: WRITE
  • Prompt: !!,?70,"COMPILED",!,?10,"DATE/TIME",?30,"QUANTITY",?72,"INTO",?105,"DATE/TIME",!,?10,"FOR ON-DEMAND",?30,"DISPENSED",?50,"ENTERED BY",?72,"AMIS",?85,"EDITED BY",?105,"LAST EDITED"
  • Line Location: ODHEAD+2
Function Call: WRITE
  • Prompt: !,?10
  • Line Location: ODHEAD+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: ODHEAD+3
Function Call: READ
  • Timeout: DTIME
  • Variable: CONT
  • Line Location: PAGE+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: PAGE+3
Function Call: WRITE
  • Prompt: !!,?(132-$L(X))/2,X,!!,"DRUG: ",$P($G(^PSDRUG(PSGWDRG,0)),"^"),?115,"PAGE ",PAGE
  • Line Location: PAGE+3
Function Call: WRITE
  • Prompt: !!!,"AOU: ",$P($G(^PSI(58.1,PSGWAOU,0)),"^"),!,"Internal Entry #: ",PSGWITM,!,"Pointer in file 50: ",PSGWDRG,!
  • Line Location: PAGE+4
Function Call: WRITE
  • Prompt: "-"
  • Line Location: PAGE+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" INV+6, RET+7, OD+6, OD+7
^DD(58.152 RET+8
^PSDRUG - [#50] PAGE+3
^PSI(58.1 - [#58.1] INV+1, INV+3, INV+5, RET+2, RET+4, RET+6, RET+8, OD+2, OD+4, OD+6
, PAGE+4
^PSI(58.19 - [#58.19] INV+6
^TMP("PSGW" ONE+1
^VA(200 - [#200] OD+6, OD+7

Label References

Name Line Occurrences
INV ONE+4
INVHEAD INV+2, INV+4
OD ONE+4
ODHEAD OD+3, OD+5
ONE ENTRY+3
PAGE ONE+3, INV+4, RET+1, RET+5, OD+1, OD+5
RET ONE+4
RETHEAD RET+3, RET+5

Naked Globals

Name Field # of Occurrence
^( ONE+1, RET+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> C RET+8*
CNT ENTRY+3*, END+1!
CNT3 END+1!
CONT ENTRY+2*, ENTRY+4*, END+1!, INV+4, RET+1, RET+5, OD+1, OD+5, PAGE+1*
CONTLTH ENTRY+2*, END+1!, INV+4, RET+1, RET+5, OD+1, OD+5
DTIME ENTRY+4, PAGE+1
I END+1!, INVHEAD+3*, RETHEAD+3*, ODHEAD+3*, PAGE+5*
IOF END, PAGE+3
IOSL INV+4, RET+1, RET+5, OD+1, OD+5
IOST ENTRY+4, PAGE+1
OUT ENTRY+1*, ENTRY+3, ENTRY+4, END+1!, ONE+1, ONE+4, INV+3, INV+4, RET+1, RET+4
, RET+5, OD+1, OD+4, OD+5, PAGE+1*
PAGE ENTRY+1*, END+1!, PAGE+1, PAGE+2*, PAGE+3
PSGWAOU END+1!, ONE+2*, INV+1, INV+3, INV+5, RET+2, RET+4, RET+6, RET+8, OD+2
, OD+4, OD+6, PAGE+4
PSGWDRCT ENTRY+3*, END+1!, ONE+1
PSGWDRG END+1!, ONE+2*, PAGE+3, PAGE+4
PSGWDRP ENTRY+3, END+1!
PSGWINND END+1!, INV+5*, INV+6
PSGWINV END+1!, INV+3*, INV+5
PSGWITM END+1!, ONE+2*, INV+1, INV+3, INV+5, RET+2, RET+4, RET+6, RET+8, OD+2
, OD+4, OD+6, PAGE+4
PSGWND END+1!, ONE+1*, ONE+2
PSGWNOD END+1!
PSGWNXT END+1!, ONE+1*
PSGWOD END+1!, OD+4*, OD+6
PSGWODND END+1!, OD+6*, OD+7
PSGWRET END+1!, RET+4*, RET+6, RET+8
PSGWRR END+1!, RET+8*
PSGWRTND END+1!, RET+6*, RET+7
PSGWVAL END+1!
PSGWY END+1!
X END+1!, PAGE+3*
Y END+1!, INV+6*, RET+7*, RET+8*, OD+6*, OD+7*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All