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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: SRHLUO3

Package: Surgery

Routine: SRHLUO3


Information

SRHLUO3 ;BIR/DLR - Surgery Interface (Cont.) Utilities for building Outgoing HL7 Segments ; [ 05/20/99 7:14 AM ]

Source Information

Source file <SRHLUO3.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
DRG Grouper 2 $$ICDDX^ICDCODE  $$CPT^ICPTCOD  
Surgery 2 MSG^SRHLMFN  $$HNAME^SRHLU  
Kernel 1 $$FMADD^XLFDT  
Pharmacy Data Management 1 DATA^PSS50  
VA Fileman 1 Y^DIQ  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SRHLMFN  

Entry Points

Name Comments DBIA/ICR reference
STF ;staff master file
ZMN ;master file update to MONITOR (File #133.2)
XPER ;personnel information extract (SSN) from file 200
ZI9 ;master file update to ICD-9 (File #80)
ZC4 ;master file update to CPT-4 (File #81)
ZRF ;master file update to REPLACEMENT FLUIDS (File #133.7)
MFE(SRI,REC,FILE,FIELD,SRENT) ;Master File Entry segment
ZRX ;master file update to MEDICATION (File #50)
MFI(SRI,ID,FEC,FILE,SRENT) ;Master File Identification segment
SMFE ;

External References

Name Field # of Occurrence
Y^DIQ MFE+5
$$ICDDX^ICDCODE ZI9+1
$$CPT^ICPTCOD ZC4+1
DATA^PSS50 MFE+9, ZRX+1
MSG^SRHLMFN ZRF+4
$$HNAME^SRHLU STF+1, XPER+1
$$FMADD^XLFDT MFE+8, MFE+18

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Invalid Master File Identifier or Event Code.",!!
  • Line Location: MFI+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( MFE+5
^ICD9 - [#80] MFE+14
^ICPT("B" MFE+15
^SC - [#44] MFE+13
^SRF - [#130] MFE+9, MFE+20, MFE+22, MFE+24, MFE+26, MFE+28, MFE+30
^SRF("AC" MFE+8, MFE+18
^SRO(133.4 - [#133.4] MFE+16, ZMN+1
^SRO(133.7 - [#133.7] MFE+17, ZRF+1
^TMP("HLS" SMFE+1*, MFI+2*, STF+1*, ZI9+1*, ZC4+1*, ZRX+1*, ZMN+1*, ZRF+1*
^TMP("SRHL" MFE+9*, MFE+11, MFE+12!, MFE+31, MFE+32!, XPER+1*
^TMP($J MFE+9, MFE+10!, ZRX+1, ZRX+2!
^VA(200 - [#200] STF+1

Label References

Name Line Occurrences
SMFE MFE+3, MFE+5, MFE+11, MFE+13, MFE+14, MFE+15, MFE+16, MFE+17, MFE+31
STF MFE+31
XPER MFE+20, MFE+22, MFE+24, MFE+26, MFE+28, MFE+30
ZC4 MFE+15
ZI9 MFE+14
ZMN MFE+16
ZRF MFE+17
ZRX MFE+11

Naked Globals

Name Field # of Occurrence
^( MFE+9, MFE+11, MFE+13, MFE+14, MFE+16, MFE+17, MFE+24, MFE+26, MFE+28, MFE+30
, MFE+31
^("I" ZRX+1
^(0 MFE+9, MFE+30, ZMN+1, ZRF+1
^(2 ZRX+1
^(6 MFE+28

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> C MFE+5*
DT MFE+8, MFE+18, SMFE+1
FEC MFI~, MFI+1, MFI+2, ZRF+4
FIELD MFE~, MFE+5, MFE+7
FILE MFE~, MFE+5, MFE+8, MFE+13, MFE+14, MFE+15, MFE+16, MFE+17, MFE+18, MFI~
, MFI+2
>> HL("FS" SMFE+1, MFI+2, STF+1, ZI9+1, ZC4+1, ZRX+1, ZMN+1, ZRF+1
>> HLCOMP MFE+9, MFE+13, MFE+14, MFE+15, MFE+16, MFE+17, MFI+2, STF+1, ZI9+1, ZC4+1
, ZRX+1, ZMN+1, ZRF+1
I MFE+1~, MFE+3*, MFE+5*, MFE+9*, MFE+10, MFE+13*, MFE+14*, MFE+15*, MFE+16*, MFE+17*
, MFE+20*, MFE+22*, MFE+24*, MFE+26*, MFE+28*, MFE+30*, MFE+31*, SMFE+1, STF+1, ZI9+1
, ZC4+1, ZRX+1, ZRX+2, ZMN+1, ZRF+1, XPER+1
ID MFE+1~, MFE+3*, MFE+5*, MFE+11*, MFE+13*, MFE+14*, MFE+15*, MFE+16*, MFE+17*, MFE+31*
, SMFE+1, MFI~, MFI+1, MFI+2
REC MFE~, SMFE+1, ZRF+4
>> ROLE MFE+20*, MFE+22*, MFE+24*, MFE+26*, MFE+28*, MFE+30*, XPER+1
>> SDT MFE+8*, MFE+18*
SRENT MFE~, MFE+3, MFE+5, MFE+7, MFI~, ZRF+4
SRI MFE~, SMFE+1*, MFI~, MFI+2*, STF+1*, ZI9+1*, ZC4+1*, ZRX+1*, ZMN+1*, ZRF+1*
SRRX MFE+1~
>> SRTBL ZRF+4
>> SRTYP ZRF+4
SRX MFE+1~, ZC4+1*
SRY MFE+1~, ZI9+1*
U MFE+3, MFE+5, MFE+9, MFE+13, MFE+14, MFE+16, MFE+17, MFE+20, MFE+22, MFE+24
, MFE+26, MFE+28, MFE+30, STF+1, ZI9+1, ZC4+1, ZRX+1, ZMN+1, ZRF+1
X MFE+1~, MFE+5*
>> X2 MFE+9*, MFE+11*, MFE+24*, MFE+26*, MFE+28*, MFE+30*
>> XF MFE+20*, MFE+22*, MFE+30*
>> XIEN MFE+8*, MFE+9, MFE+18*, MFE+20, MFE+22, MFE+24, MFE+26, MFE+28, MFE+30
>> Y MFE+5*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All