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

Package: Inpatient Medications

Routine: PSGTAP


Information

PSGTAP ;BIR/CML3-SEND PICK LIST TO TRAVENOL'S ATC 212 (DRIVER) ; 05 May 98 / 10:25 AM

Source Information

Source file <PSGTAP.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Inpatient Medications 5 $$ENDTC^PSGMI  ^PSGPLG  ($$LOCK,UNLOCK)^PSGPLUTL  (ENCV,ENKV)^PSGSETU  ENTSK^PSGTI  
VA Fileman 4 YMD^%DTC  ^DIC  YN^DICN  ^DIR  
Kernel 1 ^%ZIS  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Inpatient Medications 1 PSJU PLATCS  

Entry Points

Name Comments DBIA/ICR reference
EN ;
NL ; numeric look-up
AD ; ATC device
EN1 ;
EN2 ;
ASK ;
OUT ;

External References

Name Field # of Occurrence
YMD^%DTC EN1+12
^%ZIS EN1+6
^DIC ASK+3
YN^DICN EN1+5, EN1+7
^DIR EN1+3
$$ENDTC^PSGMI EN1+2, NL+2
^PSGPLG ASK+3
$$LOCK^PSGPLUTL EN1+1
UNLOCK^PSGPLUTL EN2+1
ENCV^PSGSETU EN+1
ENKV^PSGSETU OUT+1
ENTSK^PSGTI EN1+11

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Prompt: "Select WARD GROUP or PICK LIST: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !!?2,"Select a Ward Group for which a pick list has been run that you wish to send",!,"to the ATC.",!?2,"You may also directly select a Pick List by number, which prints in the upper",!,"left corner of each pick list."
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: $C(7),!!,"This PICK LIST is currently being accessed by another task."
  • Line Location: EN1+1
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: EN1+5
Function Call: WRITE
  • Prompt: !!,"THIS PICK LIST HAS NO",$S(Y:" DATA.",1:"T RUN TO COMPLETION."),!,"Do you wish to continue"
  • Line Location: EN1+5
Function Call: WRITE
  • Prompt: !!,"THIS PICK LIST HAS NO",$S(Y:" DATA.",1:"T RUN TO COMPLETION."),!,"Do you wish to continue"
  • Line Location: EN1+5
Function Call: WRITE
  • Prompt: $C(7),!!?10,"THE ATC MACHINE IS NOT FOUND!"
  • Line Location: EN1+6
Function Call: WRITE
  • Prompt: !!,"This pick list had been previously started, but did not run to completion.",!,"Do you want to restart it where it left off"
  • Line Location: EN1+7
Function Call: WRITE
  • Prompt: "...SENT!"
  • Line Location: EN1+12
Function Call: WRITE
  • Prompt: !?5,"Ward Group: ",PSGPLWGN,!?5,Y," thru ",PSGOD
  • Line Location: NL+3
Function Call: WRITE
  • Prompt: $C(7),!!?3,"THIS WARD GROUP DOES NOT HAVE AN ATC DEVICE DESIGNATED FOR IT."
  • Line Location: AD+1
Routine Call
  • DIC
  • Line Location:
    • ASK+3
Routine Call
  • DIR
  • Line Location:
    • EN1+3
Routine Call
  • %ZIS
  • Line Location:
    • EN1+6

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(53.5 - [#53.5] EN1+2, EN1+4, EN1+12*, NL+1, NL+2
^PS(53.55 - [#53.55] EN1+7
^PS(57.5 - [#57.5] NL+2, AD+1
^PS(59.7 - [#59.7] EN1+10

Label References

Name Line Occurrences
AD ASK+3
ASK ASK+1, ASK+2, ASK+4
EN1 ASK+1, ASK+3
EN2 EN1+2, EN1+5, EN1+6, EN1+9
NL ASK+1
OUT ASK+1

Naked Globals

Name Field # of Occurrence
^( EN1+10
^(0 EN1+2, EN1+4, EN1+7, NL+2
^(1 EN1+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN1+4*, EN1+5*, EN1+6, EN1+7*, EN1+9, EN1+12
>> %H EN1+12*
>> %Y EN1+8
%ZIS EN1+6!*
A OUT+1!
BLKS OUT+1!
C OUT+1!
D OUT+1!
DAT OUT+1!
DIC ASK+3!*, OUT+1!
DIC("S" ASK+3*
DIC(0 ASK+3*
DIR EN1+3!
DIR("A" EN1+3*
DIR("B" EN1+3*
DIR(0 EN1+3*
DTIME ASK+1
G OUT+1!
I1 OUT+1!
I2 OUT+1!
ION EN1+6
IOP EN1+6*!
ND OUT+1!
O OUT+1!
>> OK ASK+3, EN1+1*, EN1+12*
P OUT+1!
PID OUT+1!
PL OUT+1!
PN OUT+1!
PND OUT+1!
>> POP EN1+6
>> PSGID EN1+2*
>> PSGION EN1+6*
PSGIOP OUT+1!, EN1+6, AD+2*
>> PSGOD EN1+2*, EN1+3, NL+2*, NL+3
PSGPLG ASK+3, OUT+1!, EN1+1, EN1+2, EN1+3, EN1+4, EN1+7, EN1+12, EN2+1, NL+2*
PSGPLGF ASK+3*, OUT+1!
PSGPLWG ASK+3*, OUT+1!, NL+2*, AD+1
PSGPLWGN OUT+1!, NL+2*, NL+3
PSGSPD OUT+1!, AD+2*
>> PSGTAPR EN1+7*, EN1+9*
PSGTID EN1+11!
>> PSGTIR EN1+10*
Q OUT+1!
QUIT OUT+1!
R OUT+1!
S OUT+1!
ST OUT+1!
T OUT+1!
TM OUT+1!
W OUT+1!
X ASK+1*, ASK+2, ASK+3, EN1+4*, EN1+5, EN1+10*, EN1+12, NL+1, NL+2*, AD+1*!
, AD+2
>> XQUIT EN+1
>> Y ASK+1, ASK+3, EN1+2, EN1+4*, EN1+5, NL+1*, NL+2*, NL+3, AD+2*
>> ZTDESC EN1+11*
ZTSAVE EN1+11!
ZTSAVE("PSGPLG" EN1+11*
ZTSAVE("PSGPLWG" EN1+11*
ZTSAVE("PSGSPD" EN1+11*
ZTSAVE("PSGTAPR" EN1+11*
>> ZTSK EN1+12
>> ZTSK("D" EN1+12
Info |  Source |  Call Graph |  Caller 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