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

Package: Scheduling

Routine: SCMSVUT0


Information

SCMSVUT0 ;ALB/ESD HL7 Segment Validation Utilities ; 7/8/04 5:06pm

Source Information

Source file <SCMSVUT0.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
PCE Patient Care Encounter 2 PCLASS^PXAPIOE  $$IEN2VID^VSIT  
Scheduling 2 (SEGPRSE,SEQPRSE)^SCMSVUT5  GETPRV^SDOE  
Kernel 1 $$GET^XUA4A72  
Registration 1 MAKEIT^VAFHLU  
VA Fileman 1 ^%DT  

Caller Graph

Caller Graph Total: 16

Package Total Caller Graph
Scheduling 16 SCDXMSG  SCDXMSG1  SCMCHLS  SCMSVDG1  SCMSVEVN  SCMSVPID  SCMSVPR1  SCMSVPV1  
SCMSVROL  SCMSVUT2  SCMSVZCL  SCMSVZEL  SCMSVZIR  SCMSVZPD  SCMSVZSC  SCMSVZSP  

Entry Points

Name Comments DBIA/ICR reference
SETVSI(DFN,ZSPSEG,HLQ,HLFS) ;Set Vietnam Service Indicated field prior to ZSP segment validation
SETPRTY(SDOE) ;Set outpatient provider type in field #.06 of V PROVIDER
; Input: SDOE = IEN of Outpatient Encounter (#409.68) file
RACE(DATA) ;
EVTTYP(SEG,DATA) ;checks the event type of the segment passed in.
STR2(DATA) ;
SETID(SDOE,SDDELOE) ; Set PCE Unique Visit Number in field #.2 of #409.68
; Input: SDOE = IEN of Outpatient Encounter (#409.68) file
; SDDELOE = IEN of Deleted Outpatient Encounter (#409.74) file
SSN(DATA,NOPCHK,NULLOK) ; SD*5.3*345 added optional parameter NULLOK
INCR ;increases the counter
DOB(DATA,ENCDT) ;
SETMAR(PIDSEG,HLQ,HLFS,HLECH) ; Set marital status prior to PID segment validation
SETPOW(DFN,ZPDSEG,HLQ,HLFS)
CITY(DATA) ;
EVTDTTM(DATA) ;Checks the date and time to ensure it is correct.
REMOVE(SEG,ERR,VALERR,CNT) ;
COUNTY(DATA,STATE) ;
REL(DATA) ;
SETPOWQ
VALIDATE(SEG,DATA,ERRCOD,VALERR,CTR) ;
STATE(DATA) ;
SETVSIQ
STR1(DATA) ;
DECR(CNT) ;
SEX(DATA) ;
GETID ;Get unique visit ID
DFN(DATA) ;
CONVERT(SEG,HLFS,HLQ) ; Convert HLQ ("") to null in segment
; Input: SEG = HL7 segment
; HLFS = HL7 field separator
; HLQ = HL7 "" character
HL7SEGNM(SEG,DATA) ;checks the validity of the HL7 segment name passed in.
MARITAL(DATA) ;
PATNM(DATA) ;
ZIP(DATA) ;

External References

Name Field # of Occurrence
^%DT EVTDTTM+12, DOB+9
PCLASS^PXAPIOE SETPRTY+16
SEGPRSE^SCMSVUT5 SETMAR+14, SETPOW+18
SEQPRSE^SCMSVUT5 SETMAR+26, SETMAR+27, SETMAR+28
GETPRV^SDOE SETPRTY+10
MAKEIT^VAFHLU SETMAR+32, SETMAR+33, SETPOW+25
$$IEN2VID^VSIT GETID+1
$$GET^XUA4A72 SETPRTY+15

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(13 - [#13] REL+5
^DIC(5 - [#5] STATE+5, COUNTY+6
^DPT - [#2] SETPOW+22, SETPOW+23, SETVSI+13, SETVSI+14
^SCE - [#409.68] SETPRTY+15
^SCE("APAR" SETID+25
^SD(404.91 - [#404.91] EVTDTTM+8, EVTDTTM+9
^SD(409.76 - [#409.76] VALIDATE+3, VALIDATE+5

Label References

Name Line Occurrences
GETID SETID+22, SETID+25
INCR VALIDATE+4, VALIDATE+6, VALIDATE+8
SETPOWQ SETPOW+14
SETVSIQ SETVSI+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT EVTDTTM+7~, EVTDTTM+11*, DOB+4~, DOB+8*
%DT(0 EVTDTTM+11*, DOB+8*
CNT REMOVE~, REMOVE+7, DECR~, DECR+1*
CTR VALIDATE~, VALIDATE+4, VALIDATE+6, VALIDATE+8, INCR+1*
DATA HL7SEGNM~, HL7SEGNM+7, HL7SEGNM+8, EVTTYP~, EVTTYP+7, EVTTYP+8, EVTDTTM~, EVTDTTM+6, EVTDTTM+11, VALIDATE~
, DFN~, DFN+3, DFN+4, DFN+5, PATNM~, PATNM+3, PATNM+4, PATNM+5, PATNM+6, DOB~
, DOB+5, DOB+7, DOB+8, SEX~, SEX+3, SEX+4, RACE~, RACE+4, RACE+5, RACE+6
, RACE+7, STR1~, STR1+4, STR1+5, STR1+6, STR1+7, STR1+8, STR2~, STR2+2, CITY~
, CITY+3, CITY+4, STATE~, STATE+3, STATE+4, STATE+5, ZIP~, ZIP+3, ZIP+4, ZIP+5
, COUNTY~, COUNTY+4, COUNTY+6, MARITAL~, MARITAL+3, MARITAL+4, REL~, REL+3, REL+4, REL+5
, SSN~, SSN+7, SSN+8, SSN+10
DFN SETPOW~, SETPOW+13*, SETPOW+14, SETPOW+22, SETPOW+23, SETVSI~, SETVSI+11*, SETVSI+12, SETVSI+13, SETVSI+14
ENCDT DOB~, DOB+6, DOB+8
ERR REMOVE~, REMOVE+7
ERRCHK VALIDATE+2~, VALIDATE+5*, VALIDATE+6, VALIDATE+7
ERRCOD VALIDATE~, VALIDATE+3, VALIDATE+4, VALIDATE+6, VALIDATE+8
ERRIEN VALIDATE+2~, VALIDATE+3*, VALIDATE+4, VALIDATE+5
HLECH SETMAR~, SETMAR+19, SETMAR+26, SETMAR+27, SETMAR+28
HLFS CONVERT~, CONVERT+9, SETMAR~, SETMAR+14, SETPOW~, SETPOW+18, SETVSI~, SETVSI+13, SETVSI+14
HLQ CONVERT~, CONVERT+9, SETMAR~, SETMAR+18, SETMAR+22, SETPOW~, SETPOW+22, SETPOW+23, SETVSI~, SETVSI+13
, SETVSI+14
I CONVERT+8~, CONVERT+9*
LP STR1+3~, STR1+8*, STR1+9, REMOVE+6~, REMOVE+7*
MTHD RACE+3~, RACE+7*, RACE+9
NOPCHK SSN~, SSN+12
NULLOK SSN~, SSN+7
PIDSEG SETMAR~, SETMAR+14, SETMAR+25!, SETMAR+32, SETMAR+33!
PSD SSN+9~, SSN+10*, SSN+12
REBLD SETMAR+12~, SETMAR+16*, SETMAR+18*, SETMAR+33, SETPOW+16~, SETPOW+20*, SETPOW+22*, SETPOW+23*, SETPOW+25
RES VALIDATE+2~, VALIDATE+8
SDARRY SETID+8~, SETID+14*, SETID+17*, SETID+20, SETID+25*, GETID+1*
SDDELOE SETID~, SETID+11*, SETID+17
SDOE SETID~, SETID+10*, SETID+14, SETID+25, SETPRTY~, SETPRTY+7*, SETPRTY+10, SETPRTY+15
SDOEC SETID+8~, SETID+9*, SETID+25*
SDPRTYP SETPRTY+6~, SETPRTY+12*, SETPRTY+15*, SETPRTY+16
SDPRVS SETPRTY+6~
SDPRVS( SETPRTY+11, SETPRTY+15
SDVPRV SETPRTY+6~, SETPRTY+7*, SETPRTY+11*, SETPRTY+15, SETPRTY+16
SEG CONVERT~, CONVERT+9*, CONVERT+10, HL7SEGNM~, HL7SEGNM+7, HL7SEGNM+8, EVTTYP~, EVTTYP+7, EVTTYP+8, VALIDATE~
, VALIDATE+4, VALIDATE+6, VALIDATE+8, REMOVE~, REMOVE+7
SSN SSN+9~, SSN+10*, SSN+11, SSN+13
STATE COUNTY~, COUNTY+5, COUNTY+6
STRTDT EVTDTTM+7~, EVTDTTM+8*, EVTDTTM+9*, EVTDTTM+10, EVTDTTM+11
TMPARR SETMAR+12~, SETMAR+32, SETMAR+33, SETPOW+16~, SETPOW+25
TMPARR(0 SETMAR+25!, SETMAR+33!, SETPOW+25!
TMPARR(11 SETMAR+28, SETMAR+31!*
TMPARR(16 SETMAR+17, SETMAR+18*
TMPARR(17 SETMAR+21, SETMAR+22*, SETPOW+21, SETPOW+22*, SETPOW+23*
TMPARR(3 SETMAR+26, SETMAR+29!*
TMPARR(5 SETMAR+27, SETMAR+30!*
TMPARR11 SETMAR+12~, SETMAR+31
TMPARR3 SETMAR+12~, SETMAR+29
TMPARR5 SETMAR+12~, SETMAR+30
U EVTDTTM+9
VAL RACE+3~, RACE+6*, RACE+8
VALERR VALIDATE~, VALIDATE+4, VALIDATE+6, VALIDATE+8, REMOVE~, REMOVE+7
VAR STR1+3~, STR1+8*
X SETMAR+12~, SETMAR+17*, SETMAR+18, SETMAR+21*, SETMAR+22, SETPOW+16~, SETPOW+21*, SETPOW+22, EVTDTTM+7~, EVTDTTM+11*
, DOB+4~, DOB+8*
Y EVTDTTM+7~, EVTDTTM+13, DOB+4~, DOB+10
ZPDSEG SETPOW~, SETPOW+14, SETPOW+18, SETPOW+25!
ZSPSEG SETVSI~, SETVSI+11*, SETVSI+12, SETVSI+13*, SETVSI+14*, SETVSIQ
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All