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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSGTAP1

Package: Inpatient Medications

Routine: PSGTAP1


Information

PSGTAP1 ;BIR/CML3-SEND PICK LIST TO ATC BY PATIENT/ADMIN TIME ;19 Nov 98 / 2:37 PM

Source Information

Source file <PSGTAP1.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 3 NOW^%DTC  FILE^DICN  ^DIK  
Inpatient Medications 2 ($$LOCK,UNLOCK)^PSGPLUTL  ^PSJPL0  
Kernel 1 ^%ZISC  
Registration 1 PID^VADPT  

Entry Points

Name Comments DBIA/ICR reference
S1 ;
S2 ;
S3 ; *284 - Added ! to clear WR buffer for network channel
ENQ ;
SET ; write ^TMP global to ACT file
RESTART ;
QUIT ;
OS ; order record set
DTS ;

External References

Name Field # of Occurrence
NOW^%DTC ENQ+4
^%ZISC QUIT+4
FILE^DICN ENQ+7
^DIK ENQ+6, QUIT+2
$$LOCK^PSGPLUTL ENQ+2
UNLOCK^PSGPLUTL QUIT+4
^PSJPL0 DTS+1
PID^VADPT ENQ+11

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: *X
  • Timeout: $S(Q<15:1,1:5)
  • Line Location: S1+1
Function Call: WRITE
  • Prompt: $C(48)
  • Line Location: S1+1
Function Call: READ
  • Variable: *X
  • Timeout: $S(Q<15:1,1:5)
  • Line Location: S1+3
Function Call: WRITE
  • Prompt: A
  • Line Location: S1+3
Function Call: READ
  • Variable: X
  • Timeout: $S(Q<15:1,1:5)
  • Line Location: S2+1
Function Call: WRITE
  • Prompt: $C(48)
  • Line Location: S2+1
Function Call: READ
  • Variable: X
  • Timeout: $S(Q<15:1,1:5)
  • Line Location: S2+3
Function Call: WRITE
  • Prompt: A
  • Line Location: S2+3
Function Call: READ
  • Variable: *X
  • Timeout: $S(Q<15:1,1:5)
  • Line Location: S3+1
Function Call: WRITE
  • Prompt: $C(48),!
  • Line Location: S3+1
Function Call: READ
  • Variable: *X
  • Timeout: $S(Q<15:1,1:5)
  • Line Location: S3+3
Function Call: WRITE
  • Prompt: A,!
  • Line Location: S3+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(53.55 - [#53.55] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("LABOFF" RESTART+1
^DPT - [#2] ENQ+11
^PS(53.5 - [#53.5] ENQ+4, ENQ+10, ENQ+12, ENQ+13, OS+1
^PS(53.55 - [#53.55] ENQ+3, ENQ+5, ENQ+6, ENQ+9*, SET+2*, SET+3, RESTART+2*, QUIT+3
^PS(55 - [#55] ENQ+14, OS+1, OS+2
^PS(59.7 - [#59.7] ENQ+8
^PSDRUG - [#50] ENQ+16
^TMP("PSGATC" ENQ+1!, QUIT+1!, OS+9*

Label References

Name Line Occurrences
@( RESTART+2
DTS OS+5
OS ENQ+16
QUIT ENQ+4, ENQ+7, SET+3
RESTART ENQ+5
S1 S1+1, S1+3
S2 S2+1, S2+3
S3 S3+1, S3+3

Naked Globals

Name Field # of Occurrence
^( ENQ+11, RESTART+2
^(0 ENQ+4, ENQ+11, SET+3*
^(1 ENQ+5
^(212 ENQ+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ENQ+4*
>> A S1+3, S2+3, S3+3, ENQ+16*, RESTART+2*, OS+9
ATCFF ENQ+1~, ENQ+8*, ENQ+15
>> BLKS ENQ+9*, ENQ+11, ENQ+16
>> C ENQ+13*, ENQ+16*, OS+9
>> D ENQ+13*, ENQ+14
>> DA ENQ+6*, QUIT+2*
DD ENQ+1~, ENQ+7!, ENQ+9*, ENQ+12*, ENQ+13*, OS+9
>> DFN ENQ+11*
>> DIC ENQ+7*
>> DIC(0 ENQ+7*
DIK ENQ+6*, QUIT+2*!
>> DINUM ENQ+7*
>> DN ENQ+14*, ENQ+15, ENQ+16
DNUNIT ENQ+1~, ENQ+15*, ENQ+16
DO ENQ+7!
DT ENQ+16
>> FD OS+2*
G ENQ+1~, ENQ+9*, ENQ+10, ENQ+12, ENQ+13
>> IOT RESTART+2
ND ENQ+1~, ENQ+5*, ENQ+9*, SET+1*, SET+2*, SET+3*, RESTART+2*
>> ND2 OS+1*, OS+2, OS+3, OS+7*
>> O ENQ+13*
>> ON ENQ+12*, ENQ+14, OS+1, OS+2, DTS+1
P ENQ+1~, ENQ+9*, ENQ+10*, ENQ+11, ENQ+12, ENQ+13
>> PID ENQ+11*, OS+9
>> PL ENQ+11*, OS+9
>> PN ENQ+11*, OS+9
>> PND ENQ+11*
PSGMAR OS+6, OS+10!
PSGMAR( OS+8
>> PSGMFOR DTS+1*
>> PSGORD ENQ+9*, ENQ+12*, ENQ+13, OS+9
>> PSGP ENQ+11*, ENQ+12, ENQ+13, ENQ+14, OS+1, OS+2, OS+9
>> PSGPLED ENQ+4*, DTS+1
PSGPLF DTS+1*, DTS+2!
>> PSGPLG ENQ+2, ENQ+3, ENQ+4, ENQ+5, ENQ+6, ENQ+7, ENQ+9, SET+2, SET+3, RESTART+2
, QUIT+2, QUIT+3, QUIT+4, OS+1
PSGPLO DTS+1*, DTS+2!
PSGPLS DTS+1*, DTS+2!
>> PSGPLSD ENQ+4*, DTS+1
>> PSGPLWG ENQ+16
>> PSGSPD RESTART+2
PSGTAG ENQ+1~, RESTART+2*
>> PSGTAPR ENQ+5
>> PSJJORD ENQ+9*
>> PST OS+2*, OS+3, OS+5
>> Q S1+1*, S1+3*, S2+1*, S2+3*, S3+1*, S3+3*
>> QST OS+3*, OS+9
>> QUIT S1+2*, S1+4*, S2+2*, S2+4*, S3+2*, S3+4*, ENQ+4*, ENQ+7*, SET+3*, RESTART+1*
, RESTART+2, QUIT+2
R ENQ+1~, ENQ+9*, ENQ+10*, ENQ+12, ENQ+13, OS+9
>> SD OS+1*
ST ENQ+1~, ENQ+9*, ENQ+12*, ENQ+13
>> T OS+2*
TM ENQ+1~, ENQ+9*, ENQ+10*, ENQ+12, ENQ+13, OS+9
U OS+1, OS+2, OS+3, OS+7
>> VA("PID" ENQ+11
W ENQ+1~, ENQ+9*, ENQ+10*, ENQ+12, ENQ+13, OS+9
>> X S1+1*, S1+3*, S2+1*, S2+3*, S3+1*, S3+3*, ENQ+7*, SET+1*, SET+2*, OS+8*
, OS+9
>> Y ENQ+7, SET+1*, SET+2
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All