Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls