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 |  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 |  All
Print Page as PDF
Routine: PSDFT1

Package: Controlled Substances

Routine: PSDFT1


Information

PSDFT1 ;B'ham ISC/JPW,LTL - File NDES Info ; 26 June 95

Source Information

Source file <PSDFT1.m>

Call Graph

Call Graph Total: 12

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!
Info |  Source |  Call Graph |  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 |  All