SCMCHLB ;BP/DJB - PCMM HL7 Bld Segment Array ; 3/2/00 2:12pm
Source file <SCMCHLB.m>
Package | Total | Call Graph |
---|---|---|
Scheduling | 4 | $$PRPTTPC^SCAPMC $$TPACHK^SCMCHLB ($$CHECK,$$DFN,SEGMENTS,ZPC)^SCMCHLB1 (POS,PRE,PTP,PTPD)^SCMCHLB2 |
Name | Comments | DBIA/ICR reference |
---|---|---|
PRE | ;Preceptor Assign History (#404.53)
|
|
QUIT | ||
PTP(PTPI,SCTPAIN) | ;Patient Team Position Assignment (#404.43).
|
|
TPACHGRL(SCROLEIN) | ;ROLE ABBREVIATION
|
|
POS | ;Position Assign History (#404.52)
|
|
GETOEF(PTPI,EFFDT,ENDDT) | ;Find All OIF OEF RELATIONSHIPS FOR THIS TP in TPS array
; NEW RTN ADDED W PATCH 515 BY DLL |
|
TPAIDS(ARRAY,OLDPTPI) | ;GET ROLE FROM ID & CHANGE
|
|
BUILD(VARPTR,HL,XMITARRY) | ;Build an array of HL7 segments based on EVENT
|
|
TPACHK(SCTP,SCPTPI,SCROLEP) | ||
POS1(TMPOS) | ;Find every primary care PT TM POS ASSIGN for this TEAM POSITION
|
|
SETDATE | ;Set all encompassing date array
|
|
QT |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^SCPT(404.42 - [#404.42] | GETOEF+14, GETOEF+21, GETOEF+22 |
^SCPT(404.43 - [#404.43] | PTP+14, POS1+12, POS1+14, POS1+15, TPACHK+10, GETOEF+12, GETOEF+26, GETOEF+27 |
^SCTM(404.51 - [#404.51] | TPACHK+28 |
^SCTM(404.52 - [#404.52] | POS+8 |
^SCTM(404.53 - [#404.53] | POS+19, PRE+9, PRE+14 |
^SCTM(404.57 - [#404.57] | TPACHK+17 |
^SD(403.46 - [#403.46] | TPACHK+21 |
^SD(403.47 - [#403.47] | TPACHK+30 |
Name | Line Occurrences |
---|---|
$$GETOEF | PTP+30 |
$$TPACHGRL | TPACHK+22, TPACHK+23 |
$$TPACHK | PTP+26, POS1+7 |
$$TPAIDS | GETOEF+35 |
POS | BUILD+37 |
POS1 | POS+12, POS+19, PRE+11, PRE+16 |
PRE | BUILD+38 |
PTP | BUILD+36, POS1+20 |
QUIT | BUILD+32, BUILD+36, BUILD+37, BUILD+38 |
SETDATE | PTP+22 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ARRAY | TPAIDS~ |
ARRAY( | TPAIDS+4, TPAIDS+6, TPAIDS+8, TPAIDS+9, TPAIDS+19*, TPAIDS+20! |
COUNT | GETOEF+5~, GETOEF+20*, GETOEF+30*, GETOEF+31 |
DATA | TPAIDS+1~, TPAIDS+9*, TPAIDS+19 |
DFN | PTP+11~, PTP+15*, PTP+37 |
DFNX | GETOEF+5~, GETOEF+14*, GETOEF+16, GETOEF+17 |
DFNY | GETOEF+5~, GETOEF+13*, GETOEF+14 |
EFFDT | GETOEF~ |
ENDDT | GETOEF~, GETOEF+7* |
ERROR | PTP+11~ |
HL | BUILD~ |
HL("ECH" | BUILD+28 |
HL("FS" | BUILD+29 |
HL("Q" | BUILD+30 |
HLECH | BUILD+20~, BUILD+28* |
HLEID | BUILD+20~ |
HLFS | BUILD+20~, BUILD+29* |
HLQ | BUILD+20~, BUILD+30* |
ID | TPAIDS+1~, TPAIDS+7*, TPAIDS+8*, TPAIDS+9, TPAIDS+11, TPAIDS+12, TPAIDS+14, TPAIDS+17, TPAIDS+20 |
IFN | POS1+6~, POS1+13*, POS1+14*, POS1+15, POS1+20 |
ND | PTP+11~, PTP+14*, PTP+15, POS1+6~, POS1+15*, POS1+18, TPACHK+3~, TPACHK+10*, TPACHK+13, TPACHK+14 , GETOEF+12*, GETOEF+13, GETOEF+15 |
NUM | PTP+42*, TPAIDS+1~, TPAIDS+3*, TPAIDS+4*, TPAIDS+6, TPAIDS+8, TPAIDS+9, TPAIDS+20, TPAIDS+21, TPAIDS+22* , TPAIDS+24* |
>> NUMX | TPAIDS+21*, TPAIDS+24 |
OLDPTPI | TPAIDS~, TPAIDS+19, TPAIDS+22 |
PTPI | PTP~, PTP+14, PTP+23, PTP+26, PTP+28, PTP+30, PTP+37, PTP+42, GETOEF~, GETOEF+6 , GETOEF+10, GETOEF+12, GETOEF+35 |
RESULT | BUILD+19~, BUILD+23*, BUILD+25, BUILD+32, PTP+23*, GETOEF+34* |
SCGLB | BUILD+19~, BUILD+33, BUILD+34, BUILD+35, BUILD+36, BUILD+37, BUILD+38 |
SCIEN | BUILD+19~, BUILD+36, POS+8, PRE+9, PRE+14 |
>> SCLIMIT | PTP+47* |
SCLOW | PTP+11~, PTP+28*, PTP+30*, TPACHK+3~, TPACHK+8*, TPACHK+32, GETOEF+5~, GETOEF+6*, GETOEF+35*, GETOEF+36 , TPACHGRL+1~, TPACHGRL+6*, TPACHGRL+8, TPAIDS+1~, TPAIDS+2*, TPAIDS+30 |
SCNEWID | TPAIDS+1~, TPAIDS+17*, TPAIDS+18*, TPAIDS+19 |
SCNEWROL | TPAIDS+1~, TPAIDS+14*, TPAIDS+16, TPAIDS+18 |
>> SCOLD43I | GETOEF+10* |
SCOLDPAT | GETOEF+5~, GETOEF+16*, GETOEF+21 |
SCOLDTM | GETOEF+5~, GETOEF+17*, GETOEF+23 |
SCOLDTP | GETOEF+5~, GETOEF+15*, GETOEF+33 |
SCPC | TPACHK+3~, TPACHK+13*, TPACHK+14 |
SCPCP | GETOEF+8! |
SCPCP( | GETOEF+29, GETOEF+32* |
SCPTPI | TPACHK~, TPACHK+9, TPACHK+10, TPAIDS+1~, TPAIDS+12*, TPAIDS+19, TPAIDS+23 |
SCPURX | TPACHK+3~, TPACHK+5*, TPACHK+33, TPACHGRL+1~, TPACHGRL+2*, TPACHGRL+9, TPACHGRL+10, TPACHGRL+11 |
SCROL | TPACHK+3~, TPACHK+20*, TPACHK+21*, TPACHK+22*, TPACHK+23*, TPACHK+25 |
SCROLE | TPAIDS+1~, TPAIDS+11*, TPAIDS+13 |
SCROLEIN | TPACHGRL~, TPACHGRL+4, TPACHGRL+8*, TPACHGRL+9, TPACHGRL+10, TPACHGRL+11 |
SCROLEP | TPACHK~, TPACHK+22, TPACHK+23 |
>> SCROLOUT | TPACHGRL+3*, TPACHGRL+9*, TPACHGRL+10*, TPACHGRL+11*, TPACHGRL+12 |
SCROLX | TPACHK+3~, TPACHK+6*, TPACHK+26 |
SCROLY | TPACHK+3~, TPACHK+25*, TPACHK+26 |
SCSEQ | PTP+11~ |
SCTM | TPACHK+3~, TPACHK+24*, TPACHK+28 |
SCTMP | TPACHK+3~, TPACHK+29*, TPACHK+30*, TPACHK+32*, TPACHK+33 |
SCTP | TPACHK~, TPACHK+14*, TPACHK+16, TPACHK+17 |
SCTPA | TPACHK+3~, TPACHK+4*, TPACHK+16, TPACHK+19, TPACHK+26*, TPACHK+34*, QT |
SCTPAIN | PTP~ |
SCTPD | TPACHK+3~, TPACHK+17*, TPACHK+18, TPACHK+20, TPACHK+24 |
SCTPS | GETOEF+8! |
SCTPS( | GETOEF+31* |
SCTPTA | TPACHK+3~, TPACHK+33*, TPACHK+34 |
SCTPTPA | PTP+11~, PTP+26*, PTP+30, PTP+42, POS1+6~, POS1+7*, POS1+18 |
SCTPX | TPACHK+3~, TPACHK+18*, TPACHK+19 |
SCUP | TPACHK+3~, TPACHK+7*, TPACHK+32, TPACHGRL+1~, TPACHGRL+5*, TPACHGRL+8 |
TM | POS1+6~, POS1+11*, POS1+12*, POS1+14 |
TMD | TPACHK+3~, TPACHK+28*, TPACHK+29 |
TMPOS | POS+5~, POS+8*, POS+9, POS+12, POS+19, POS1~, POS1+5, POS1+7, POS1+12, POS1+14 , PRE+6~, PRE+9*, PRE+10, PRE+11, PRE+14*, PRE+15, PRE+16 |
TP | POS+5~, POS+18*, POS+19*, GETOEF+5~, GETOEF+28*, GETOEF+29, GETOEF+31, GETOEF+32, GETOEF+33 |
TPD | GETOEF+5~ |
TPDX | GETOEF+5~, GETOEF+22*, GETOEF+23 |
TPDXX | GETOEF+5~, GETOEF+27*, GETOEF+28 |
TPX | GETOEF+5~, GETOEF+19*, GETOEF+21*, GETOEF+22, GETOEF+26 |
TPXX | GETOEF+5~, GETOEF+25*, GETOEF+26*, GETOEF+27, GETOEF+34 |
TYPE | TPAIDS+1~, TPAIDS+5*, TPAIDS+6*, TPAIDS+8, TPAIDS+9, TPAIDS+20 |
U | POS+8, POS1+18, PRE+9, PRE+14, TPACHK+13, TPACHK+14, TPACHK+18, TPACHK+20, TPACHK+21, TPACHK+24 , TPACHK+29, GETOEF+13, GETOEF+15, GETOEF+16, GETOEF+17, GETOEF+23, GETOEF+28 |
VARPTR | BUILD~, BUILD+23 |
XMITARRY | BUILD~ |
ZDATE | PTP+11~ |
ZDATE("BEGIN" | SETDATE+1* |
ZDATE("END" | SETDATE+2* |
ZDATE("INCL" | SETDATE+3* |
ZPTP | PTP+11~, PTP+21!, PTP+34, PTP+45, GETOEF+35 |