Routine: PSGWPAW1

Information

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

Call Graph

Call Graph Total: 2

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

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Auto Replenishment Ward Stock	1	PSGWPAW

Entry Points

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

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!

Customize PDF page

Package: Auto Replenishment Ward Stock