Routine: PSGAL5

Package	Total	Call Graph
VA Fileman	2	NOW^%DTC FIELD^DID

Package

Total

Call Graph

NOW^%DTC FIELD^DID

Package	Total	Caller Graph
Inpatient Medications	37	ACTIVITY LOG DISPENSE DRUG DISPENSE LOG PSGOE92 PSGOEC PSGOECS PSGOEF1 PSGOEH0 PSGOEH1 PSGOENG PSGOER PSGOERI PSGOERS PSGOETO PSGOEV PSIVOPT1 PSIVORC2 PSJADT0 PSJBCMA4 PSJCOMR PSJHL5 PSJHL6 PSJHL7 PSJHLV PSJOERI PSJOREN PSJXR510 PSJXR516 PSJXR517 PSJXR519 PSJXR520 PSJXR521 PSJXR55 PSJXR56 PSJXR58 PSJXR59 UNIT DOSE
Pharmacy Data Management	10	PSSJXR11 PSSJXR12 PSSJXR13 PSSJXR23 PSSJXR24 PSSJXR27 PSSJXR28 PSSJXR29 PSSJXR7 PSSJXR8
Outpatient Pharmacy	4	ACTIVITY LOG DISPENSE DRUG DISPENSE LOG UNIT DOSE

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
EN	;
KILLNV
NEWNVAL(PSGALORD,PSGALC,PSGFLD,PSGOLD)
NEWUDAL(PSGALGP,PSGALORD,PSGALC,PSGFLD,PSGOLD)
DONE	;
KILL	; if user merely reenters same data (tsk, tsk), kill record just written
PNTR	; find pointer value

Name	Field # of Occurrence
NOW^%DTC	EN+10, NEWUDAL+13, NEWNVAL+12
FIELD^DID	EN+5, EN+6, PNTR+1

Name	Line Occurrences (* Changed, ! Killed)
^DD(	EN+6, EN+11
^PS(53.1 - [#53.1]	NEWNVAL+10, NEWNVAL+16*, KILLNV+1!
^PS(55 - [#55]	EN+8, EN+12, KILL+1!, NEWUDAL+11, NEWUDAL+17

Name	Line Occurrences
PNTR	EN+5

Name	Field # of Occurrence
^(	EN+8, NEWUDAL+11, NEWNVAL+10
^(0	EN+8, EN+11, NEWUDAL+11, NEWNVAL+10*

Name	Field # of Occurrence
>> %	EN+10, EN+11, DONE+1, NEWUDAL+13, NEWUDAL+15, NEWNVAL+12, NEWNVAL+14
>> DA	EN+2
>> DA(	EN+1, EN+2
DUZ	EN+11, NEWUDAL+15, NEWNVAL+14
FLD	EN+5*, EN+6, EN+11, DONE+1!
FN	EN+5*, EN+6, EN+11, DONE+1!
OLD	EN+5, EN+6, EN+11, DONE+1!, PNTR+1*
OLDS	EN+6*, DONE+1!
>> PSGAL("C"	EN+3, EN+4, EN+5, EN+6, EN+11, EN+12, KILL+1, KILLNV+1
>> PSGAL("D"	DONE+1*
>> PSGAL("D0"	EN+2*, EN+8, EN+12, KILL+1, KILLNV+1
>> PSGAL("D1"	EN+2*, EN+8, EN+12, KILL+1
>> PSGAL("N"	EN+8, EN+12, KILL+1, NEWUDAL+11, NEWUDAL+17, NEWNVAL+10*, NEWNVAL+16, KILLNV+1
PSGALC	NEWUDAL~, NEWUDAL+15, NEWNVAL~, NEWNVAL+14
>> PSGALEF	EN+12, KILL+1, KILLNV+1*
PSGALFF	EN+5, DONE+1!
PSGALFN	EN+5, DONE+1!
PSGALGP	NEWUDAL~, NEWUDAL+11, NEWUDAL+17
>> PSGALO	EN+3
PSGALORD	NEWUDAL~, NEWUDAL+11, NEWUDAL+17, NEWNVAL~, NEWNVAL+10, NEWNVAL+16
>> PSGALR	EN+4
>> PSGDT	EN+10, NEWUDAL+13, NEWNVAL+12*
PSGFLD	NEWUDAL~, NEWUDAL+15, NEWNVAL~, NEWNVAL+14
PSGOLD	NEWUDAL~, NEWUDAL+14, NEWUDAL+15, NEWNVAL~, NEWNVAL+13, NEWNVAL+14
PSJ9	EN+1~
PSJ9("SPECIFIER"	EN+5, EN+6
PSJ99	EN+1~
PSJ99("POINTER"	PNTR+1
PSJ99("SPECIFIER"	PNTR+1
>> Q	EN+1, EN+2, EN+8, EN+11, EN+12, NEWUDAL+11, NEWUDAL+15, NEWUDAL+17, NEWNVAL+10, NEWNVAL+14* , NEWNVAL+16
>> QQ	EN+8, NEWUDAL+11, NEWNVAL+10*
SS	DONE+1!, PNTR+1*
>> X	EN+5
XX	EN+5, DONE+1!, PNTR+1
YY	EN+5, DONE+1!, PNTR+1

Information