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: PSGPLDP

Package: Inpatient Medications

Routine: PSGPLDP


Information

PSGPLDP ;BIR/CML3-ENTER AND FILE UNITS DISPENSED ;15 JAN 97 / 11:13 AM

Source Information

Source file <PSGPLDP.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Inpatient Medications 7 $$EN^PSGCT  $$ENDTC^PSGMI  ^PSGPLDP0  ^PSGPLG  ($$LOCK,UNLOCK)^PSGPLUTL  (ENCV,ENKV)^PSGSETU  ENNOIO^PSGTI  
VA FileMan 2 NOW^%DTC  ^DIC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Inpatient Medications 3 PSGPLD  PSJU LM PLDP  PSJU PLDP  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
CHK ;
ASK
DONE ;
RUN ; choose pick list and go through it
RUN1 ;
AF ;
ENQ ; queue PSGPLF
NL ; numeric look-up
HLP ;

External References

Name Field # of Occurrence
NOW^%DTC CHK+1, AF+2, ENQ+1
^DIC ASK+2
$$EN^PSGCT ENQ+1
$$ENDTC^PSGMI NL+2
^PSGPLDP0 RUN1+3
^PSGPLG RUN+1
$$LOCK^PSGPLUTL RUN1+1
UNLOCK^PSGPLUTL RUN1+4
ENCV^PSGSETU PSGPLDP+3
ENKV^PSGSETU DONE+1
ENNOIO^PSGTI ENQ+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"NO PICK LIST AVAILABLE",$S($D(^PS(53.5,"AB")):", YET.",1:".")
  • Line Location: CHK+2
Function Call: READ
  • Formatting: !!
  • Prompt: "Select WARD GROUP or PICK LIST: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: $C(7),!!,"Another terminal is acccessing this pick list."
  • Line Location: RUN1+1
Function Call: WRITE
  • Prompt: " (PICK LIST AUTOMATICALLY FILED AWAY)"
  • Line Location: AF+2
Function Call: WRITE
  • Prompt: " ***"
  • Line Location: AF+3
Function Call: WRITE
  • Prompt: " ",PSGPLWGN,!?$L(PSGPLWG)+21,Y," thru ",PSGOD
  • Line Location: NL+3
Function Call: WRITE
  • Prompt: !?2,"Select a Ward Group for which a pick list has run for which you wish to enter",!,"the units actually dispensed.",!?2,"You may also select a pick list by its number, which prints in the upper left",!,"corner of each pick list."
  • Line Location: HLP+1
Routine Call
  • DIC
  • Line Location:
    • ASK+2

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] CHK+1, CHK+2, DONE+1, RUN1+2, RUN1+3, AF+2*!, NL+1, NL+2
^PS(57.5 - [#57.5] NL+2
^PS(59.7 - [#59.7] ENQ+1*

Label References

Name Line Occurrences
AF RUN1+2
ASK ASK+2
CHK ASK, ASK+2
DONE CHK+2, ASK
ENQ DONE+1
HLP ASK+2
NL ASK
RUN ASK+2
RUN1 ASK, RUN+1

Naked Globals

Name Field # of Occurrence
^( CHK+1
^(0 AF+2*, NL+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % CHK+1, AF+2, ENQ+1
AM DONE+1!, ENQ+1*
DIC ASK+2*!
DIC("S" ASK+2*
DIC(0 ASK+2*
DR DONE+1!
DRG DONE+1!
DTIME ASK
FA DONE+1!
LMT DONE+1!
OK DONE+1!
PC DONE+1!
PDD DONE+1!
PDN DONE+1!
PN DONE+1!
PND DONE+1!
PPN DONE+1!
PR DONE+1!
PRN PSGPLDP+3*, DONE+1!
>> PSGDT CHK+1*
PSGLCNT DONE+1!
>> PSGOD NL+2*, NL+3
PSGP DONE+1!
PSGPLG DONE+1!, RUN+1, RUN1+1, RUN1+2, RUN1+3, RUN1+4, AF+2, NL+2*
PSGPLGF PSGPLDP+3*, DONE+1!
PSGPLTND DONE+1!
PSGPLWG ASK+2*, DONE+1!, AF+2, NL+2*, NL+3
PSGPLWGN ASK+2*, DONE+1!, NL+2*, NL+3
>> PSGTID ENQ+2*
>> PSGTIR ENQ+2*
PSJJORD DONE+1!
PSSN DONE+1!
PW DONE+1!
Q CHK+1*, CHK+2, DONE+1!
RB DONE+1!
SCH DONE+1!
ST DONE+1!, ENQ+1*
TM DONE+1!
WDN DONE+1!
WF DONE+1!
WG ASK+2*, DONE+1!
WSF DONE+1!
X ASK*, ASK+2, DONE+1!, ENQ+1*, ENQ+2, NL+1, NL+2*
>> XQUIT PSGPLDP+3
Y ASK, ASK+2, DONE+1!, AF+2*, NL+1*, NL+2*, NL+3*
Y(0 ASK+2
>> ZTDESC ENQ+2*
>> ZTIO ENQ+2*
ZTSAVE ENQ+2!
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