Routine: PSDFT1

Package	Total	Call Graph
VA Fileman	5	^%DT NOW^%DTC ^DIC ^DIE IX^DIK
MailMan	3	KILL^XM XMZ^XMA2 ^XMD
Health Level Seven	2	$$FMDATE^HLFNC GENACK^HLMA1
Controlled Substances	1	^PSDFILM
Registration	1	(INP,KVA)^VADPT

Entry Points

Name	Comments	DBIA/ICR reference
END
ERR	;err log update
ACK	;Send ack back
DFT	;process the incoming message
NUR
UPDATE	;update 58.8 and 58.81
EDIT	;edit new transaction in 58.81
ADD	;find entry number in 58.81
FIND9
EDIT9	;edit error log
FIND
LOOP	;loop thru data from DFT message
OP

External References

Name	Field # of Occurrence
^%DT	NUR+17
NOW^%DTC	UPDATE+3
^DIC	NUR, NUR+1, NUR+5, NUR+6, FIND+1, FIND9+1
^DIE	EDIT9+1
IX^DIK	EDIT+6
$$FMDATE^HLFNC	NUR+16
GENACK^HLMA1	ACK+4
^PSDFILM	EDIT9+2
INP^VADPT	LOOP+8, EDIT+3
KVA^VADPT	LOOP+8
KILL^XM	NUR+20, NUR+23, NUR+35
XMZ^XMA2	NUR+23
^XMD	NUR+35

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "." Line Location: EDIT+7
Routine Call	DIE Line Location: EDIT9+1
Routine Call	DIC Line Location: NUR NUR+1 NUR+5 NUR+6 FIND+1 FIND9+1

Used in HL7 Interface

HL7 Protocol Name	Call Tags
PSD DFT CLIENT

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls
^PSD(58.81 - [#58.81]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	NUR+17
^DIC(42 - [#42]	LOOP+7, LOOP+10
^DIC(45.7 - [#45.7]	EDIT+4
^DPT - [#2]	NUR+10, NUR+11, NUR+31
^PSD(58.8 - [#58.8]	LOOP+9, NUR+13, NUR+27, UPDATE+2, UPDATE+4, UPDATE+5
^PSD(58.81 - [#58.81]	ADD+1, FIND, FIND+2, EDIT+1, EDIT+4, EDIT+5
^PSD(58.89 - [#58.89]	ERR+1, FIND9*, FIND9+2
^PSDRUG - [#50]	LOOP+4, LOOP+5, NUR+32
^VA(200 - [#200]	NUR+3, NUR+8, NUR+29, NUR+30
^XUSEC("PSD ERROR"	NUR+25

Label References

Name	Line Occurrences
ACK	LOOP+4, LOOP+5
FIND	FIND
FIND9	FIND9

Naked Globals

Name	Field # of Occurrence
^(0	NUR+11, UPDATE+4*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	END!, UPDATE+3
%DT	NUR+17*, END!
%H	END!
%I	END!
BAL	END!, UPDATE+4*, EDIT+1
CQTY	END!
DA	END!, EDIT+6!, EDIT9+1!
>> DFN	LOOP+8, EDIT+3
DIC	NUR, NUR+2!, NUR+5, NUR+7!, END!, FIND+1!, FIND9+1!
DIC(0	NUR, NUR+5, FIND+1, FIND9+1
DIE	END!, EDIT9+1!*
DIK	END!, EDIT+6!*
>> DILOCKTM	UPDATE+2, ADD+1, ERR+1
DINUM	END!, FIND+1, FIND9+1
DLAYGO	END!, FIND+1!, FIND9+1!
DR	END!, EDIT9+1!*
DUZ	NUR+24
>> HL("DTM"	NUR+16
>> HL("ECH"	LOOP+6, LOOP+13, NUR+14
>> HL("EID"	ACK+1
>> HL("EIDS"	ACK+1
>> HL("FS"	LOOP+4, LOOP+5, LOOP+6, LOOP+8, LOOP+11, LOOP+13, NUR+4, NUR+9, NUR+10, NUR+11 , NUR+12, NUR+15, ACK+3
>> HL("MID"	ACK+3
>> HLA("HLA"	ACK+3*
>> HLARYTYP	ACK+1*, ACK+4
>> HLEID	ACK+1*, ACK+4
>> HLEIDS	ACK+1*, ACK+4
>> HLFORMAT	ACK+1*, ACK+4
>> HLMTIENA	ACK+2*, ACK+4
>> HLMTIENS	ACK+4
>> HLNEXT	DFT+2
>> HLNODE	DFT+2
>> HLNODE(	DFT+2
>> HLP	ACK+2*, ACK+4
>> HLQUIT	DFT+2
>> HLRESLTA	ACK+2*, ACK+4
JJ	END!
LQTY	END!
NAOU	LOOP+1~, LOOP+6, LOOP+7, LOOP+8*, LOOP+9, LOOP+10, EDIT9+1
NAOU(1	LOOP+9*, LOOP+10, NUR+13, NUR+27, UPDATE+2, UPDATE+4, UPDATE+5, EDIT+1
NAOU(2	LOOP+6*, LOOP+10
NAOUN	END!
NODE	END!
NUR1	LOOP+1~, LOOP+13*, NUR+3, EDIT+4
NUR1(1	NUR, NUR+1, NUR+3, NUR+29
NUR2	LOOP+1~, NUR+4, NUR+8, NUR+15, NUR+30, EDIT+4
NUR2(1	NUR+5, NUR+6, NUR+8
OK	END!
OQTY	END!
ORD	END!
PAT	LOOP+1~, NUR+9*, NUR+10, NUR+11, NUR+31, END+1!, EDIT+3, EDIT+4
PATL	END+1!
PSD	DFT+1~, DFT+2, NUR+20~, NUR+24, NUR+25*, END+1!, EDIT+6!
PSD(	DFT+2*
PSD(3	LOOP+2, EDIT+4
PSD(4	LOOP+2
PSD(5	LOOP+3
PSD(6	LOOP+3
PSD1	DFT+1~, DFT+2*
PSD1(	DFT+2*
PSDER	END+1!, FIND9*, FIND9+1, EDIT9+1
PSDFT1	LOOP+1~, LOOP+3*, LOOP+4, LOOP+5, LOOP+11, LOOP+13, NUR+12, NUR+15
PSDM	LOOP+1~
PSDM(	NUR+8, NUR+26, NUR+27, NUR+28, NUR+29, NUR+30, NUR+31, NUR+32, NUR+33, NUR+34
PSDM(0	NUR+19
PSDM(1	LOOP+10*, NUR+13
PSDM(2	LOOP+12*
PSDM(3	NUR+3*, NUR+29
PSDM(4	NUR+10, NUR+11, NUR+31
PSDM(5	NUR+14*, NUR+32
PSDM(6	NUR+18*, NUR+33
PSDPID	LOOP+1~, LOOP+2*, LOOP+8, NUR+9, NUR+10, NUR+11
PSDPN	END+1!
PSDPV1	LOOP+1~, LOOP+2*, LOOP+6
PSDR	NUR+12*, NUR+13, NUR+14, NUR+32, END+1!, UPDATE+2, UPDATE+4, UPDATE+5, EDIT+1
PSDREC	END+1!, FIND*, FIND+1, EDIT+1, EDIT+4, EDIT+5, EDIT+6, EDIT9+1
PSDRN	END+1!
PSDT	NUR+16*, NUR+17, END+1!, EDIT+1, EDIT9+1
PSDT(1	NUR+17*, NUR+18, NUR+33
PSDTN	END+1!, UPDATE+3*
PSDTYP	LOOP+1~, LOOP+11*, LOOP+12, NUR+8, NUR+28, NUR+30
PSDTYP(1	LOOP+11*, LOOP+12, NUR+15, NUR+28, EDIT+1, EDIT+4
PSDZPM	LOOP+1~, LOOP+3*, NUR+4
QTY	NUR+15, NUR+32, NUR+36, END+1!, UPDATE+4, EDIT+1, EDIT+4
U	LOOP+5, LOOP+9, LOOP+10, NUR+11, NUR+27, NUR+29, NUR+30, NUR+31, NUR+32, EDIT+4
VAERR	EDIT+6!
>> VAIN(4	LOOP+8
>> VAROOT	EDIT+3*
WQTY	END+1!
X	LOOP+13, NUR+1, NUR+4, NUR+6, NUR+17, END+1!, FIND+1, FIND9+1*
>> XMDUZ	NUR+22*
>> XMSUB	NUR+21*
>> XMTEXT	NUR+35*
>> XMY(	NUR+24, NUR+25
>> XMZ	NUR+23
Y	NUR, NUR+1, NUR+5, NUR+6, NUR+17*, NUR+18, END+1!

Customize PDF page

Package: Controlled Substances

Routine: PSDFT1

Information

Source Information

Call Graph

Call Graph Total: 12

Entry Points

External References

Interaction Calls

Used in HL7 Interface

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: