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

Package: Auto Replenishment Ward Stock

Routine: PSGWCPA1


Information

PSGWCPA1 ;BHAM ISC/PTD,CML-Print Cost Per AOU Report for Selected Date Range - CONTINUED ; 13 Jan 97 / 9:24 AM

Source Information

Source file <PSGWCPA1.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Auto Replenishment Ward Stock 1 $$PSGWDT^PSGWUTL1  
Kernel 1 ^%ZISC  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Auto Replenishment Ward Stock 1 PSGWCPA  

Entry Points

Name Comments DBIA/ICR reference
SERV
WD
DRGLP
WRTOT
SUB1
AOULP
TOTLN
SRLP
EN1
BRKDN ;PRINT THE COST PER WARD AND COST PER SERVICE BREAKDOWN
SUB2
DONE
SMRY ;PRINT SUMMARY PAGES - COST BY WARD & COST BY SERVICE
WRDLP
END
WARD
SUB3
HDR ;PRINT REPORT MAIN HEADER

External References

Name Field # of Occurrence
^%ZISC END+1
^DIR HDR+1
$$PSGWDT^PSGWUTL1 HDR+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,LN,!?5,"NO COST DATA FOUND FOR SELECTED DATE RANGE."
  • Line Location: EN1+0
Function Call: WRITE
  • Prompt: !?7,"==> ",$P(^PSI(58.1,AOU,0),"^")
  • Line Location: AOULP+1
Function Call: WRITE
  • Prompt: !?44
  • Line Location: WRTOT+0
Function Call: WRITE
  • Prompt: "-"
  • Line Location: WRTOT+0
Function Call: WRITE
  • Prompt: !?39,"TOTAL",?46,$J((AOUQD),8,0),?64,$S(INACTOT=1:"INCOMPLETE",1:$J((AOUCST),10,2)),!!
  • Line Location: WRTOT+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DONE+0
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue: "
  • Line Location: DONE+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !?5,"COST REPORT FROM "
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: Y," TO "
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: Y," TO "
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: Y," TO "
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!?53,"DATE: ",$$PSGWDT^PSGWUTL1
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !?11,"AREA OF USE",!?46,"QUANTITY",!?5,"ITEM",?45,"DISPENSED",?67,"COST",!,LN
  • Line Location: SUB1+0
Function Call: WRITE
  • Prompt: !!?46,"QUANTITY",!?11,"AREA OF USE",?46,"DISPENSED",?67,"COST",!,LN
  • Line Location: SUB2+0
Function Call: WRITE
  • Prompt: !?5,$P(^PSI(58.1,AOU,0),"^"),?29,"COST PER WARD/LOCATION",!!?23,"WARD/LOC",?45,"% OF TOTAL",?60,"COST",!," "
  • Line Location: WARD+0
Function Call: WRITE
  • Prompt: "-"
  • Line Location: WARD+0
Function Call: WRITE
  • Prompt: !
  • Line Location: WARD+1
Function Call: WRITE
  • Prompt: !,"WARD/LOCATION DATA MISSING"
  • Line Location: WRDLP+1
Function Call: WRITE
  • Prompt: !?14,WDNAM,?48,$J(PRCNT,3),?57,$J(((PRCNT/100)*AOUCST),10,2)
  • Line Location: WRDLP+2
Function Call: WRITE
  • Prompt: !!!!?33,"COST PER SERVICE",!?16,"WARD/LOC",!?24,"SERVICE",?44,"% OF WARD/LOC",?60,"COST",!," "
  • Line Location: SERV+0
Function Call: WRITE
  • Prompt: "-"
  • Line Location: SERV+0
Function Call: WRITE
  • Prompt: !!?14,$P(^SC($P(WRDDA(WDN),"^"),0),"^"),":"
  • Line Location: WD+0
Function Call: WRITE
  • Prompt: !!?16,"NO SERVICES LISTED FOR WARD/LOCATION."
  • Line Location: WD+1
Function Call: WRITE
  • Prompt: !,"SERVICE DATA MISSING"
  • Line Location: SRLP+0
Function Call: WRITE
  • Prompt: !?16,SRNAM,?48,$J(PRCT,3),?57,$J(((PRCT/100)*(($P(WRDDA(WDN),"^",2)/100))*AOUCST),10,2)
  • Line Location: SRLP+1
Function Call: WRITE
  • Prompt: !?5,WD,?45,$J(CST,8,2)
  • Line Location: SMRY+2
Function Call: WRITE
  • Prompt: !?5,SV,?45,$J(CST,8,2)
  • Line Location: SMRY+4
Function Call: WRITE
  • Prompt: !!?27,"COST BY ",VAR," SUMMARY",!!?15,VAR,?48,"COST",!
  • Line Location: SUB3+0
Function Call: WRITE
  • Prompt: "-"
  • Line Location: SUB3+0
Function Call: WRITE
  • Prompt: !!?40
  • Line Location: TOTLN+0
Function Call: WRITE
  • Prompt: "="
  • Line Location: TOTLN+0
Function Call: WRITE
  • Prompt: !,?TAB,"TOTAL FOR ALL ",VAR,"S:",?45,$J(GRTOT,8,2)
  • Line Location: TOTLN+1
Routine Call
  • DIR
  • Line Location:
    • HDR+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" HDR+2
^DIC(42.4 - [#42.4] SRLP+1
^PSI(58.1 - [#58.1] AOULP+1, WRTOT+2, WARD, WRDLP, WD+1, SRLP
^PSI(58.2 - [#58.2] HDR+2
^SC - [#44] WRDLP+2, WD
^TMP("PSGWCPA" EN1, AOULP, DRGLP, END+1!, WRDLP+3, SRLP+2, SMRY+1, SMRY+2, SMRY+4

Label References

Name Line Occurrences
AOULP WRTOT+2, WRTOT+3
BRKDN WRTOT+3
DONE EN1, AOULP
DRGLP DRGLP+2, DRGLP+3
END AOULP, AOULP+1, DRGLP+1, WRTOT+3
HDR EN1, AOULP+1, DRGLP+1, WARD, SMRY+1, SMRY+3
SERV WRDLP
SMRY AOULP
SRLP SRLP+2
SUB1 AOULP+1, DRGLP+1
SUB2 AOULP+1
SUB3 SMRY+1, SMRY+3
TOTLN SMRY+3, SMRY+5
WD SRLP
WRDLP WRDLP+3
WRTOT DRGLP

Naked Globals

Name Field # of Occurrence
^( WRDLP+3*, SRLP+2*, SMRY+2, SMRY+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END+1!
%H END+1!
%I END+1!
ALL END!
AOU EN1*, AOULP*, AOULP+1, DRGLP, WRTOT+2, END!, WARD, WRDLP, WD+1, SRLP
AOUCNT AOULP, END!
AOUCST AOULP*, DRGLP+2*, WRTOT+1, END!, WRDLP+2, WRDLP+3, SRLP+1, SRLP+2
AOULP END!
AOUQD AOULP*, DRGLP+2*, WRTOT+1, END!
AUTO DONE+1*, END!
BDT END!, HDR+2
CST END!, SMRY+2*, SMRY+4*
DIR HDR+1!
DIR(0 HDR+1*
DRG AOULP+1*, DRGLP*, DRGLP+1, END!
DRGCST END!
DRGDA END!
DRGNAME END!
DRGNM END!
DRGQD END!
DTIME DONE+1
EDT END!, HDR+2
FLG AOULP+1, DRGLP+1, END!
G END+1!
GRTOT END!, SMRY+1*, SMRY+2*, SMRY+3*, SMRY+4*, TOTLN+1
HFLG EN1*, DRGLP+1*, END!
IGDA END!, HDR+2
INACTOT AOULP*, DRGLP+3*, WRTOT+1, WRTOT+2, END!
INC END!
INVDA END!
INVDT END!
INVN END!
IO("Q" END!
IOF DONE, HDR+2
IOSL DRGLP+1, WARD
IOST DONE, DONE+1, HDR+1
J WRTOT*, END!, WARD*, WRDLP+1*, SERV*, SRLP*, SMRY+4*, SUB3*, TOTLN*
JJ END!
L END!, SMRY+2*
LN EN1*, END!, SUB1, SUB2
LOC DRGLP*, DRGLP+1, DRGLP+2, END!
LOC1 END!
LOC2 END!
LOCSR END!, SRLP*, SRLP+1
LOCWD END!, WRDLP*, WRDLP+1
ODA END!
ODT END!
OUT EN1*, AOULP, AOULP+1, DRGLP+1, WRTOT+3, END!, HDR+1*, WARD, SMRY+1, SMRY+3
PGCT EN1*, END!, HDR+1, HDR+2, HDR+3*
PRCNT END!, WRDLP*, WRDLP+2, WRDLP+3
PRCT END!, SRLP+1*, SRLP+2
PSGWIO END+1!
QD END+1!
RETDT END+1!
SEL END!, HDR+2
SRLOC END+1!, SRLP+2*
SRNAM END+1!, SRLP+1*, SRLP+2
SRV END+1!, SRLP+1*
SRVDA END+1!, WD+2*, SRLP*
SV END+1!, SMRY+1*, SMRY+4*
TAB END+1!, TOTLN*, TOTLN+1
VAR END+1!, SMRY+1*, SMRY+3*, SUB3, TOTLN, TOTLN+1
WARD END+1!, WRDLP*, WRDLP+2
WD END+1!, SMRY+1*, SMRY+2*
WDLOC END+1!, WRDLP+3*
WDN END+1!, SERV+1*, WD*, WD+1, SRLP, SRLP+1, SRLP+2
WDNAM END+1!, WRDLP+2*, WRDLP+3
WRDA END+1!, WARD+1*, WRDLP*
WRDDA AOULP!, END+1!
WRDDA( WRDLP*, WD, SRLP+1, SRLP+2
Y END!, HDR+1, HDR+2*
ZTIO END+1!
>> ZTQUEUED END+2
>> ZTREQ END+2*
ZTSK END!, END+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All