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

Caller Graph Total: 2

Package	Total	Caller Graph
Inpatient Medications	2	PSGPLD PSJU PLDP

Entry Points

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

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	Prompt: "Select WARD GROUP or PICK LIST: " Formatting: !! Timeout: DTIME Variable: X 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