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

Package: Auto Replenishment Ward Stock

Routine: PSGWPAW1


Information

PSGWPAW1 ;BHAM ISC/PTD,CML-Print AMIS Data Worksheet for All Drugs in All AOUs - CONTINUED ; 05/22/90 10:10

Source Information

Source file <PSGWPAW1.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Kernel 1 ^%ZISC  
VA Fileman 1 ^%DT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Auto Replenishment Ward Stock 1 PSGWPAW  

Entry Points

Name Comments DBIA/ICR reference
END
HDR ;PRINT REPORT MAIN HEADER
WRTYPE
ONDM
DONE
PG1
PRINT

External References

Name Field # of Occurrence
^%DT HDR+1
^%ZISC END+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,PSGWNM,?45,PSGWLN
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !!?5,PSGWNM,?45,PSGWLN
  • Line Location: ONDM+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DONE+0
Function Call: WRITE
  • Prompt: !
  • Line Location: PG1+0
Function Call: WRITE
  • Prompt: !?30,"AMIS DATA WORKSHEET",!!!?5,"For each drug listed on the following page(s), determine the AMIS category",!,"and AMIS conversion number to be entered for AR/WS AMIS statistics.",!!!
  • Line Location: PG1+1
Function Call: WRITE
  • Prompt: "AMIS CATEGORY will classify the drug for AR/WS AMIS.",!,"You will enter ""0"", ""1"", ""2"", or ""3"".",!!?5,"==> ""0"" Means the drug is classified as field 03 or 04.",!?10,"Include tablets, capsules, multi-dose vials, etc."
  • Line Location: PG1+2
Function Call: WRITE
  • Prompt: !?10,"Exclude multiple-dose externals, liquids, or antacids.",!!?5,"==> ""1"" Means the drug is classified as field 06 or 07.",!?10,"Include multiple-dose externals, liquids, antacids, otics,",!?10,"opthalmics, and inhalations.",!!
  • Line Location: PG1+3
Function Call: WRITE
  • Prompt: ?5,"==> ""2"" Means the drug is classified as field 17.",!?10,"Include solutions and administration sets.",!!
  • Line Location: PG1+4
Function Call: WRITE
  • Prompt: ?5,"==> ""3"" Means the drug is classified as field 22.",!?10,"Include blood and blood products.",!!!
  • Line Location: PG1+5
Function Call: WRITE
  • Prompt: "AMIS CONVERSION NUMBER:",!?5,"This number reflects the number of doses/units contained in a single",!?5,"quantity dispensed. For example:",!?10,"For a 20cc vial, quantity dispensed is 1, and conversion number is 20."
  • Line Location: PG1+6
Function Call: WRITE
  • Prompt: !?10,"For 5oz. antacid, quantity dispensed is 1, and conversion number is 1.",!?10,"For a bottle of 100 aspirin, quantity dispensed is 1, and",!?10,"conversion number is 100.",!!!
  • Line Location: PG1+7
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !!,"PAGE: ",PSGWPG,?60,"DATE: ",Y,!?30,"AMIS DATA WORKSHEET",!!,"TYPE",?45,"AMIS CATEGORY",?65,"AMIS CONVERSION",!?5,"DRUG NAME",?45,"(0,1,2, or 3)",?70,"NUMBER",!
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" HDR+1
^PSI(58.16 - [#58.16] WRTYPE
^TMP("PSGWPAW" PRINT+1, ONDM, END!

Label References

Name Line Occurrences
DONE PRINT+1
HDR PRINT, PRINT+1, ONDM
ONDM PRINT+1
PG1 PRINT
WRTYPE PRINT+1, ONDM

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END!
%DT END!, HDR+1*
%H END!
%I END!
I END!, PG1*
IO("Q" END!
IOF DONE, HDR+1
IOSL PRINT+1, ONDM
IOST DONE
J PRINT+1*, ONDM*, END!, HDR+2*
K END!
PSGWAOU END!
PSGWDR END!
PSGWDT END!
PSGWIO END!
PSGWITM END!
PSGWLN PRINT*, PRINT+1, ONDM, END!
PSGWNM PRINT+1*, ONDM*, END!
PSGWPG PRINT*, END!, HDR+1, HDR+3*
PSGWTY PRINT+1*, END!, WRTYPE
X END!, HDR+1*
Y END!, HDR+1
ZTIO END!
>> ZTQUEUED END+2
>> ZTREQ END+2*
ZTSK END!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All