Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSGWADE1

Package: Auto Replenishment Ward Stock

Routine: PSGWADE1


Information

PSGWADE1 ;BHAM ISC/PTD,CML-Enter AMIS Data for All Drugs in All AOUs - CONTINUED ; 23 Mar 93 / 10:29 AM

Source Information

Source file <PSGWADE1.m>

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Auto Replenishment Ward Stock 1 PSGWADE  

Entry Points

Name Comments DBIA/ICR reference
ASKCON
END
HELP
CHK
SETNOD
DONE
L3
SETPC
L1
L2
ASKCAT
LOOP

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!,"All drugs in all AOUs contain AMIS data.",!,"If you need to edit data for a selected drug,",!,"use the AMIS Data Enter/Edit (Single Drug) option.",!!!
  • Line Location: DONE+0
Function Call: WRITE
  • Prompt: "If you wish to view the data stored in the drug file for",!,"AR/WS AMIS statistics, use the Data for AMIS Stats - Print option.",!!!
  • Line Location: DONE+1
Function Call: WRITE
  • Prompt: !!,"==> "_$P(^(0),"^")
  • Line Location: CHK+1
Function Call: WRITE
  • Prompt: !!,"The name for drug number ",PSGWDR," is missing from your drug file.",!,"Please notify your package coordinator!"
  • Line Location: CHK+2
Function Call: READ
  • Prompt: "Enter AMIS Category: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: PSGWCT
  • Line Location: ASKCAT+0
Function Call: READ
  • Prompt: "Enter AMIS Conversion Number: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: PSGWCN
  • Line Location: ASKCON+0
Function Call: WRITE
  • Prompt: *7,!!,"Enter a whole number between 1 and 9999.",!,"This number reflects the number of doses/units",!,"contained in a single quantity dispensed.",!!
  • Line Location: ASKCON+1
Function Call: WRITE
  • Prompt: *7,!!,"Enter the category that this drug is to be classified as for AMIS:",!?5,"==> ""0"" for field 03 or 04",!?5,"==> ""1"" for field 06 or 07",!?5,"==> ""2"" for field 17",!?5,"==> ""3"" for field 22",!!
  • Line Location: HELP+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSDRUG - [#50] CHK, CHK+1, CHK+3, CHK+4, CHK+5, SETNOD*, SETPC*, SETPC+1*
^PSI(58.16 - [#58.16] L1
^TMP("PSGW" END!, L1, L2, L3
^TMP("PSGWDN" END!, L2

Label References

Name Line Occurrences
ASKCAT CHK+3, CHK+4, ASKCAT+1
ASKCON CHK+3, CHK+5, ASKCON+1
DONE L1
END CHK+3, CHK+4, CHK+5
HELP ASKCAT+1
L1 L2
L2 L2, L3
L3 CHK, CHK+3, CHK+4, CHK+5, CHK+6
SETNOD CHK+3
SETPC CHK+4, CHK+5

Naked Globals

Name Field # of Occurrence
^(0 CHK+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END!
%H END!
%I END!
DA END!
DTIME ASKCAT, ASKCON
K END!
PSGW2 END!, CHK*, CHK+4*, CHK+5
PSGWAOU END!
PSGWCN END!, CHK+3, CHK+5, ASKCON*, ASKCON+1, SETNOD, SETPC+1
PSGWCT END!, CHK+3, CHK+4, ASKCAT*, ASKCAT+1, SETNOD, SETPC
PSGWDR END!, L2*, L3*, CHK, CHK+1, CHK+2, CHK+3, CHK+4, CHK+5, SETNOD
, SETPC, SETPC+1
PSGWDT END!
PSGWFLG DONE, END!, CHK+3*, CHK+4*, CHK+5*
PSGWITM END!
PSGWNM END!, L1*, L2*, L3
PSGWPC END!, CHK+4*, CHK+5*, SETPC, SETPC+1
PSGWRET DONE, END!, CHK+3*, CHK+4*, CHK+5*
PSGWTY END!, LOOP*, L1*, L2, L3
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All