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 |  Local Variables |  All
Print Page as PDF
Routine: PSJHLERR

Package: Inpatient Medications

Routine: PSJHLERR


Information

PSJHLERR ;BIR/LDT-PATIENT ID AND VISIT SEGMENTS FOR ERRORS ; 20 Apr 98 / 9:58 AM

Source Information

Source file <PSJHLERR.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Health Level Seven 1 $$HLDATE^HLFNC  
Inpatient Medications 1 (CALL,INIT,SEGMENT)^PSJHLU  
Registration 1 (,INP)^VADPT  
VA Fileman 1 NOW^%DTC  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Inpatient Medications 4 PSJHL10  PSJHL5  PSJHL6  PSJHL9  

Entry Points

Name Comments DBIA/ICR reference
PV1 ; get patient visit information, format PV1 segment
PID ; get patient data, format PID SEGMENT
EN1(PSJHLDFN,PSOC,RXORDER,PSREASON) ; start here
; passed in are PSJHLDFN (patient ien)
; RXORDER (order number from OE/RR)
; PSOC (order control code)
; PSREASON (text reason)
DISPLAY ; just for testing
START ;
INIT ; initialize HL7 variables, set master file identification segment
; PSJHLMTN = message type - ORR for messages sent as a response to
; an OE/RR event; ORM for "unsolicited" messages.
ORC ; order control segment - modified for use with error messages.

External References

Name Field # of Occurrence
NOW^%DTC INIT+7
$$HLDATE^HLFNC INIT+7
CALL^PSJHLU START+4
INIT^PSJHLU INIT+4
SEGMENT^PSJHLU INIT+8, PID+5, PV1+10, ORC+12
^VADPT PID+4
INP^VADPT PV1+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: FIELD(NEXT)_"|"
  • Line Location: DISPLAY+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] PV1+5, PV1+6
^SC("B" PV1+5
^TMP("PSJHLS" START+1!
^VA(200 - [#200] ORC+7

Label References

Name Line Occurrences
DISPLAY INIT+8, PID+5, PV1+10, ORC+12
INIT START+3
ORC START+3
PID START+3
PV1 START+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % INIT+7
>> CLASS PV1+8
CLERK START+2~, ORC+7*, ORC+8
DFN PID+4~*, PV1+9~*
DUZ ORC+7, ORC+8
FIELD START+2~
FIELD(0 INIT+6*, PID+2*, PV1+2*, ORC+3*
FIELD(1 INIT+6*, ORC+4*
FIELD(10 ORC+8*
FIELD(16 ORC+11*
FIELD(19 PV1+9*
FIELD(2 INIT+6*, PV1+8*, PV1+9, ORC+5*
FIELD(3 INIT+6*, INIT+7, PID+3*, PV1+3*, PV1+7*, ORC+6*
FIELD(4 INIT+7*
FIELD(5 INIT+7*, PID+4*
FIELD(6 INIT+7*
FIELD(8 INIT+6*
J START+5!
LIMIT START+2~, INIT+5*, INIT+8, PID+1*, PID+5, PV1+1*, PV1+10, ORC+1*, ORC+12
>> LOC PV1+3, PV1+5*, PV1+6*, PV1+7
NEXT START+5!
PSJCLEAR START+5!, INIT+5, PID+1, PV1+1, ORC+1
PSJHINST START+2~, INIT+6
PSJHLDFN EN1~, PID+3, PID+4, PV1+5, PV1+6, PV1+9
PSJHLMTN START+2~, INIT+3*, INIT+6, PV1+3, PV1+4
PSJHLSDT START+2~
PSJI START+2~, START+4, START+5!, INIT+3*
PSOC EN1~, START+5!, ORC+2, ORC+4, ORC+6, ORC+11
PSREASON EN1~, START+5!, ORC+11
ROOMBED START+2~, PV1+6*
>> RXON ORC+6
RXORDER EN1~, START+5!, ORC+2, ORC+5
U ORC+11
>> VADM(1 PID+4
>> VAIN(1 PV1+9
WARD START+2~, PV1+5*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All