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 |  Local Variables |  All
Print Page as PDF
Routine: PSGWARP

Package: Auto Replenishment Ward Stock

Routine: PSGWARP


Information

PSGWARP ;BHAM ISC/PTD,CML-Print AMIS Report - CONTINUED ; 23 Mar 93 / 12:43 PM

Source Information

Source file <PSGWARP.m>

Call Graph

Call Graph Total: 1

Package Total Call Graph
Auto Replenishment Ward Stock 1 $$PSGWDT^PSGWUTL1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Auto Replenishment Ward Stock 1 PSGWAR1  

Entry Points

Name Comments DBIA/ICR reference
SUB4 ;PRINT SUB-HEADER FOR SECTION 4: BLOOD AND BLOOD PRODUCTS.
SUB2 ;PRINT SUB-HEADER FOR SECTION 2: UNITS OF ISSUE.
SUB3 ;PRINT SUB-HEADER FOR SECTION 3: FLUIDS & ADMIN SETS.
SUMRY ;PRINT SUMMARY OF FIELDS THAT ARE ACTUALLY REPORTED ON AMIS
SUB1 ;PRINT SUB-HEADER FOR SECTION 1: DOSES BY TYPE.
HDR ;PRINT REPORT MAIN HEADER

External References

Name Field # of Occurrence
$$PSGWDT^PSGWUTL1 HDR+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,?43,"AUTOMATIC REPLENISHMENT/WARD STOCK AMIS REPORT",!?46,"FOR INPATIENT SITE: ",SITE(SITE),!!?11,"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: ?93,"PRINTED ON: ",$$PSGWDT^PSGWUTL1,!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,"(INPATIENT SEGMENT 158)",!?3,"DOSES BY TYPE:",!?116,"AVERAGE",!?6,"FIELD",?19,"DOSES",?33,"COST OF",?50,"DOSES",?65,"COST OF",?83,"TOTAL",?99,"TOTAL",?115,"COST PER"
  • Line Location: SUB1+1
Function Call: WRITE
  • Prompt: !?17,"DISPENSED",?32,"DISPENSED",?49,"RETURNED",?65,"RETURNS",?81,"DISPENSED",?99,"COST",?117,"DOSE",!," "
  • Line Location: SUB1+2
Function Call: WRITE
  • Prompt: "-"
  • Line Location: SUB1+2
Function Call: WRITE
  • Prompt: !!?3,"UNITS OF ISSUE:",!?116,"AVERAGE",!?6,"FIELD",?19,"UNITS",?33,"COST OF",?50,"UNITS",?65,"COST OF",?83,"TOTAL",?99,"TOTAL",?115,"COST PER"
  • Line Location: SUB2+1
Function Call: WRITE
  • Prompt: !?17,"DISPENSED",?32,"DISPENSED",?49,"RETURNED",?65,"RETURNS",?81,"DISPENSED",?99,"COST",?117,"UNIT",!," "
  • Line Location: SUB2+2
Function Call: WRITE
  • Prompt: "-"
  • Line Location: SUB2+2
Function Call: WRITE
  • Prompt: !!?3,"FLUIDS AND ADMINISTRATION SETS:",!?116,"AVERAGE",!?6,"FIELD",?33,"COST OF",?65,"COST OF",?83,"TOTAL",?99,"TOTAL",?117,"UNIT"
  • Line Location: SUB3+1
Function Call: WRITE
  • Prompt: !?17,"DISPENSED",?32,"DISPENSED",?49,"RETURNED",?65,"RETURNS",?81,"DISPENSED",?99,"COST",?117,"COST",!," "
  • Line Location: SUB3+2
Function Call: WRITE
  • Prompt: "-"
  • Line Location: SUB3+2
Function Call: WRITE
  • Prompt: !!!,"(OUTPATIENT SEGMENT 157)",!?3,"BLOOD AND BLOOD PRODUCTS:",!?116,"AVERAGE",!?6,"FIELD",?33,"COST OF",?65,"COST OF",?83,"TOTAL",?99,"TOTAL",?117,"UNIT"
  • Line Location: SUB4+1
Function Call: WRITE
  • Prompt: !?17,"DISPENSED",?32,"DISPENSED",?49,"RETURNED",?65,"RETURNS",?81,"DISPENSED",?99,"COST",?117,"COST",!," "
  • Line Location: SUB4+2
Function Call: WRITE
  • Prompt: "-"
  • Line Location: SUB4+2
Function Call: WRITE
  • Prompt: !!!!?52,"SUMMARY OF REPORTED FIELDS:",!!?34,"INPATIENT SEGMENT 158",?75,"OUTPATIENT SEGMENT 157",!?33,LN,?75,LN
  • Line Location: SUMRY+1
Function Call: WRITE
  • Prompt: !?33,"FIELD 03 ",$J($P(LOC("03"),"^",5),10,0),?75,"FIELD 22 ",$J($P(LOC("22"),"^",6),10,2),!?33,"FIELD 04 ",$J($P(LOC("04"),"^",5),10,0),!?33,"FIELD 05 ",$J($P(LOC("05"),"^",7),10,2)
  • Line Location: SUMRY+2
Function Call: WRITE
  • Prompt: !?33,"FIELD 06 ",$J($P(LOC("06"),"^",5),10,0),!?33,"FIELD 07 ",$J($P(LOC("07"),"^",5),10,0),!?33,"FIELD 08 ",$J($P(LOC("08"),"^",7),10,2)
  • Line Location: SUMRY+3
Function Call: WRITE
  • Prompt: !?33,"FIELD 17 ",$J($P(LOC("17"),"^",5),10,0),!?33,"FIELD 18 ",$J($P(LOC("18"),"^",7),10,2)
  • Line Location: SUMRY+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" HDR+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BDT HDR+1
>> EDT HDR+1
IOF HDR+1
>> J HDR+2*, SUB1+2*, SUB2+2*, SUB3+2*, SUB4+2*
>> LN SUMRY+1*
>> LOC("03" SUMRY+2
>> LOC("04" SUMRY+2
>> LOC("05" SUMRY+2
>> LOC("06" SUMRY+3
>> LOC("07" SUMRY+3
>> LOC("08" SUMRY+3
>> LOC("17" SUMRY+4
>> LOC("18" SUMRY+4
>> LOC("22" SUMRY+2
>> SITE HDR+1
>> SITE( HDR+1
>> Y HDR+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Local Variables |  All