SCMCQK1 ;ALBOI/REW - Single Pt Tm/Pt Tm Pos Assign and Discharge;11/07/02 ; 6/13/12 3:38pm
Source file <SCMCQK1.m>
Package | Total | Call Graph |
---|---|---|
Scheduling | 16 | $$ACPTTM^SCAPMC $$ACPTCL^SCAPMC18 $$ACPTTP^SCAPMC21 $$INPTSCTP^SCAPMC22 $$TPPT^SCAPMC23 $$INPTSCTM^SCAPMC7 ($$PCPOSCNT,$$TEAMCNT)^SCAPMCU1 $$GETPRTP^SCAPMCU2 $$GETEAM^SCAPMCU3 $$RESTPT^SCAPMCU4 $$WRITETP^SCMCDD1 WARNMESS^SCMCQK1 $$OKINPTTM^SCMCTMU2 $$ACTTP^SCMCTPU ($$ONWAIT,$$WAITS)^SCMCWAIT ^SDCD |
VA FileMan | 4 | NOW^%DTC ^DIC MIX^DIC1 ^DIR |
Kernel | 1 | $$FMTE^XLFDT |
Registration | 1 | ELIG^VADPT |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Name | Comments | DBIA/ICR reference |
---|---|---|
UNTP | ;unassign patient from pc prac position
|
|
QTUNTP | ||
ENRCL | ; no longer used with SD*5.3*535
|
|
QTECL | ||
DISCL | ; no longer used with SD*5.3*535
|
|
QTDCL | ||
UNTM | ;
|
|
QTUNTM | ||
ALLPOS() | ;unassign all patient-positions for team
|
|
QTALL | ||
ASTM | ;assign patient to PC team
|
|
QTASTM | ||
ASTP | ;assign patient to PC practitioner
|
|
QTASTP | ||
NAME(DFN) | ;return patient name
|
|
POSITION(SCTP) | ;return position name
|
|
TEAMNM(SCTM) | ;return team name
|
|
CLINIC(SCCL) | ;return clinic name
|
|
YESNO() | ;
|
|
YESNO1() | ; added per SD*5.3*436
|
|
YESNO2() | ;
|
|
CONFIRM() | ;confirmation call
|
|
SELPOS() | ;return way to select position: 1=PRACT,2=POSIT,3=NONE
|
|
DATE(TYPE,DFN) | ;type=A(Assignment) or D(Unassignment)
; Returns assignment/unassignment date or "^" |
|
ACTCL(DFN,SCCL) | ;is patient enrolled in clinic? - not called with SD*5.3*535
|
|
PRACSCR(SC40452) | ;screen for for file 404.52
|
|
QTPP | ||
POSSCR(SCTP) | ;screen for file 404.57
|
|
WAITYN() | ;
|
|
SC(DFN) | ;Is patient 50 to 100%
|
|
WARNMESS(SDY,DFN,SDFLG) | ;SD*5.3*563
|
Name | Field # of Occurrence |
---|---|
NOW^%DTC | ASTM+34, ASTP+37 |
^DIC | ASTM+9 |
MIX^DIC1 | ASTP+19 |
^DIR | YESNO+3, YESNO1+4, YESNO2+4, CONFIRM+4, SELPOS+5, DATE+11, WAITYN+7 |
$$ACPTTM^SCAPMC | ASTM+35 |
$$ACPTCL^SCAPMC18 | ENRCL+23 |
$$ACPTTP^SCAPMC21 | ASTP+38 |
$$INPTSCTP^SCAPMC22 | UNTP+8, UNTM+11, ALLPOS+26 |
$$TPPT^SCAPMC23 | ALLPOS+7 |
$$INPTSCTM^SCAPMC7 | UNTM+18 |
$$PCPOSCNT^SCAPMCU1 | ASTP+27 |
$$TEAMCNT^SCAPMCU1 | ASTM+23 |
$$GETPRTP^SCAPMCU2 | UNTP+4 |
$$GETEAM^SCAPMCU3 | ASTM+24 |
$$RESTPT^SCAPMCU4 | ENRCL+9 |
$$WRITETP^SCMCDD1 | UNTM+5 |
WARNMESS^SCMCQK1 | DATE+13 |
$$OKINPTTM^SCMCTMU2 | UNTM+17 |
$$ACTTP^SCMCTPU | PRACSCR+6, POSSCR+3 |
$$ONWAIT^SCMCWAIT | WAITYN+3 |
$$WAITS^SCMCWAIT | WAITYN+8 |
^SDCD | DISCL+9 |
ELIG^VADPT | SC+1 |
$$FMTE^XLFDT | WARNMESS+11 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^SCTM(404.51 - [#404.51] | Classic Fileman Calls |
^SCTM(404.52 - [#404.52] | Classic Fileman Calls |
^SCTM(404.57 - [#404.57] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DD("DD" | ENRCL+20, DISCL+6, DATE+9 |
^DPT - [#2] | NAME+1, ACTCL+3, ACTCL+4, WARNMESS+8, WARNMESS+9, WARNMESS+10 |
^SC - [#44] | CLINIC+1 |
^SCTM(404.51 - [#404.51] | ASTM+13, TEAMNM+1 |
^SCTM(404.52 - [#404.52] | PRACSCR+2, PRACSCR+6 |
^SCTM(404.57 - [#404.57] | ENRCL+4, DISCL+2, UNTM+14, ASTP+27, ASTP+40, POSITION+1, PRACSCR+5, POSSCR+2 |
Name | Line Occurrences |
---|---|
$$ACTCL | ENRCL+5, DISCL+3 |
$$ALLPOS | UNTM+16 |
$$CLINIC | ENRCL+6, DISCL+4 |
$$CONFIRM | UNTP+7, UNTM+8, ALLPOS+23, ASTM+19, ASTM+29, ASTP+32 |
$$DATE | UNTP+5, UNTM+6, ASTM+21, ASTP+25 |
$$NAME | UNTP+4, DISCL+4, UNTM+4, ASTM+3, ASTP+3 |
$$POSITION | UNTP+4, ENRCL+6, UNTM+5 |
$$SC | ASTM+4, ASTP+4 |
$$SELPOS | ASTM+36 |
$$TEAMNM | UNTM+4 |
$$WAITYN | ASTM+25, ASTP+28 |
$$YESNO | ENRCL+21, DISCL+7 |
$$YESNO1 | ASTM+18 |
$$YESNO2 | ASTM+25, ASTP+28 |
ASTP | ASTM+37 |
ENRCL | ASTP+41 |
QTALL | ALLPOS+21, ALLPOS+23 |
QTASTM | ASTM+10, ASTM+13, ASTM+22, ASTM+25, ASTM+29 |
QTASTP | ASTP+20, ASTP+26, ASTP+28, ASTP+32 |
QTECL | ENRCL+16 |
QTPP | PRACSCR+4 |
QTUNTM | UNTM+7, UNTM+8, UNTM+9 |
QTUNTP | UNTP+6, UNTP+7, UNTP+9 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | ASTM+34, ASTP+37, WAITYN+1~ |
A | WAITYN+3~* |
>> D | ASTP+12*, ASTP+15* |
DFN | UNTP+4, UNTP+5, UNTP+8, ENRCL+5, ENRCL+9, ENRCL+23, DISCL+3, DISCL+4, DISCL+8, DISCL+9~ , UNTM+4, UNTM+6, UNTM+11, UNTM+17, UNTM+18, ALLPOS+7, ALLPOS+26, ASTM+3, ASTM+4, ASTM+21 , ASTM+35, ASTP+3, ASTP+4, ASTP+25, ASTP+38, NAME~, NAME+1, DATE~, DATE+2, DATE+13 , ACTCL~, ACTCL+3, ACTCL+4, WAITYN+3, WAITYN+8, SC~, WARNMESS~, WARNMESS+8, WARNMESS+9, WARNMESS+10 |
DIC | ASTM+1~, ASTM+5*, ASTP+1~, ASTP+9*, ASTP+14* |
DIC("A" | ASTP+8*, ASTP+16* |
DIC("S" | ASTM+7*, ASTP+11*, ASTP+17* |
DIC("W" | ASTP+7* |
DIC(0 | ASTM+6*, ASTP+18* |
DIR | YESNO+1~, YESNO1+1~, YESNO2+1~, CONFIRM+1~, SELPOS+1~, DATE+3~, DATE+11!, WAITYN+4~ |
DIR("A" | YESNO1+2*, YESNO2+3*, CONFIRM+2*, DATE+6*, WAITYN+6* |
DIR("B" | YESNO+2*, YESNO1+3*, YESNO2+2*, SELPOS+4*, DATE+10*, WAITYN+5* |
DIR(0 | YESNO+2*, YESNO1+2*, YESNO2+2*, CONFIRM+3*, SELPOS+3*, DATE+7*, WAITYN+5* |
DIRUT | DATE+12! |
DT | UNTP+4, ENRCL+9 |
DUOUT | DATE+12! |
DUZ | ASTM+33, ASTP+36 |
OK | UNTP+2~, UNTP+3*, UNTP+8*, UNTP+9, QTUNTP, UNTM+2~, UNTM+3*, UNTM+18*, QTUNTM, ALLPOS+3~ , ALLPOS+7*, ALLPOS+19*, ALLPOS+21, ALLPOS+23*, ALLPOS+25, ALLPOS+26*, ALLPOS+27, QTALL, ASTM+1~, ASTM+2* , ASTM+38*, QTASTM, QTASTM+1, ASTP+1~, ASTP+2*, ASTP+39*, QTASTP, QTASTP+1, PRACSCR+1~, PRACSCR+3* , PRACSCR+6*, QTPP, WAITYN+1~ |
OK2 | UNTM+2~, UNTM+9, UNTM+11*, UNTM+12 |
OK3 | UNTM+2~, UNTM+16* |
SC | WAITYN+3~, WAITYN+8 |
SC40452 | PRACSCR~, PRACSCR+2 |
>> SCASSDT | ENRCL+20, ENRCL+23, ASTM+21*, ASTM+22, ASTM+35, ASTP+25*, ASTP+26, ASTP+34, ASTP+38, DATE+8 |
SCBEGIN | UNTP+2~, UNTM+2~, ASTM+1~, ASTP+1~ |
SCCL | UNTP+2~, ENRCL+3~, ENRCL+4*, ENRCL+5, ENRCL+6, ENRCL+23, DISCL+2~*, DISCL+3, DISCL+4, DISCL+8 , UNTM+14*, ASTP+1~, ASTP+40*, ASTP+41, CLINIC~, CLINIC+1, ACTCL~, ACTCL+3 |
SCCLNM | ENRCL+2~, ENRCL+12* |
SCCNT | ALLPOS+3~, ALLPOS+8*, ALLPOS+10*, ALLPOS+20, ALLPOS+21 |
SCDATES | UNTP+2~, UNTM+2~, ASTM+1~, ASTP+1~ |
>> SCDISCH | UNTP+5*, UNTP+6, UNTP+8, DISCL+6, UNTM+6*, UNTM+7, UNTM+11, UNTM+17, UNTM+18, ALLPOS+4 , ALLPOS+16, ALLPOS+26, DATE+8 |
SCDT1 | ALLPOS+3~ |
SCDT1("BEGIN" | ALLPOS+4* |
SCDT1("END" | ALLPOS+5* |
SCDT1("INCL" | ALLPOS+6* |
SCDTS | UNTP+2~, UNTM+2~, ASTM+1~, ASTP+1~ |
SCEND | UNTP+2~, UNTM+2~, ASTM+1~, ASTP+1~ |
SCER | UNTP+2~, UNTP+8, UNTM+2~, UNTM+11, UNTM+18, ALLPOS+26, ASTM+1~, ASTP+1~ |
SCERRR | ALLPOS+3~, ALLPOS+7 |
>> SCFLAG | ASTM+13, ASTM+14*, ASTM+20* |
SCINCL | UNTP+2~, UNTM+2~, ASTM+1~, ASTP+1~ |
SCLIST | UNTP+2~, UNTM+2~, ASTM+1~, ASTP+1~ |
SCLOC | ALLPOS+3~, ALLPOS+12*, ALLPOS+13 |
SCLSEQ | UNTP+2~, UNTM+2~, ASTM+1~, ASTP+1~ |
SCN | UNTP+2~, UNTM+2~, ASTM+1~, ASTP+1~ |
SCNODE | ALLPOS+3~, ALLPOS+13*, ALLPOS+15, ALLPOS+16, PRACSCR+1~, PRACSCR+5*, PRACSCR+6, POSSCR+1~, POSSCR+2*, POSSCR+3 |
>> SCOKCONS | ENRCL+16 |
SCP | PRACSCR+1~, PRACSCR+2*, PRACSCR+4, PRACSCR+5, PRACSCR+6 |
SCPTTP2 | ALLPOS+3~ |
SCPTTP2( | ALLPOS+14*, ALLPOS+25 |
SCPTTPI | ALLPOS+3~, ALLPOS+11*, ALLPOS+12 |
SCPTTPX | ALLPOS+3~ |
SCPTTPX( | ALLPOS+13 |
SCPTTPX("SCTP" | ALLPOS+10, ALLPOS+11, ALLPOS+12 |
SCREST | ENRCL+2~, ENRCL+9*, ENRCL+10, ENRCL+16 |
SCRESTA | ENRCL+2~, ENRCL+8~ |
SCRESTA( | ENRCL+15 |
>> SCSELECT | ASTM+36*, ASTM+37, ASTP+6, ASTP+21 |
SCTM | ENRCL+2~, ENRCL+11~, ENRCL+14*, ENRCL+15*, UNTM+4, UNTM+17, UNTM+18, ALLPOS+10, ALLPOS+11, ALLPOS+12 , ASTM+1~, ASTM+11*, ASTM+13, ASTM+23, ASTM+24, ASTM+30*, ASTM+35, TEAMNM~, TEAMNM+1, PRACSCR+6 , POSSCR+3, WAITYN+8 |
>> SCTMCT | ASTM+23*, ASTM+25, ASTM+27, ASTM+29, ASTP+27*, ASTP+28, ASTP+30, WAITYN+2 |
SCTMFLDS | ASTM+1~ |
SCTMFLDS( | ASTM+32*, ASTM+33*, ASTM+34* |
>> SCTMMAX | ASTM+24*, ASTM+25, ASTM+28, ASTM+29, ASTP+27*, ASTP+28, ASTP+31, WAITYN+2 |
SCTP | UNTP+1, UNTP+4, UNTP+8, ENRCL+4, ENRCL+6, DISCL+2, UNTM+5, UNTM+11, UNTM+14, ALLPOS+3~ , ALLPOS+8*, ALLPOS+10*, ALLPOS+11, ALLPOS+12, ALLPOS+14, ALLPOS+24*, ALLPOS+25*, ALLPOS+26, ASTP+22*, ASTP+24* , ASTP+27, ASTP+38, ASTP+40, POSITION~, POSITION+1, POSSCR~, POSSCR+2, POSSCR+3, WAITYN+3, WAITYN+8 |
SCTPFLDS | ASTP+1~ |
SCTPFLDS( | ASTP+34*, ASTP+35*, ASTP+36*, ASTP+37* |
>> SCTPSTAT | UNTM+5, UNTM+9 |
SCXX | ACTCL+2~, ACTCL+3*, ACTCL+4 |
SDCLN | DISCL+8~* |
SDDODCF | WARNMESS+6~, WARNMESS+11*, WARNMESS+14 |
SDDODPAT | WARNMESS+6~, WARNMESS+10*, WARNMESS+11, WARNMESS+12, WARNMESS+13 |
SDFLG | DATE+3~, DATE+5, DATE+12*, DATE+13, WARNMESS~, WARNMESS+7*, WARNMESS+8*, WARNMESS+12* |
SDFN | DISCL+8~* |
>> SDWLPCMM | QTASTM+1*, QTASTP+1* |
SDY | DATE+3~, DATE+11*, DATE+13, DATE+14, WARNMESS~, WARNMESS+12, WARNMESS+13 |
TYPE | DATE~, DATE+6, DATE+8 |
U | UNTP+4, UNTM+14, ALLPOS+15, ALLPOS+16, ASTM+13, ASTP+22, ASTP+24, ASTP+27, NAME+1, POSITION+1 , TEAMNM+1, CLINIC+1, ACTCL+4, PRACSCR+6, POSSCR+3, SC+1, WARNMESS+8, WARNMESS+9, WARNMESS+10 |
>> VAEL(3 | SC+1 |
X | ASTP+1~, YESNO+1~, YESNO1+1~, YESNO2+1~, CONFIRM+1~, SELPOS+1~, DATE+3~, DATE+12!, WAITYN+4~ |
Y | ENRCL+12, ENRCL+20*, DISCL+6*, ASTM+1~, ASTM+10, ASTM+11, ASTM+30, ASTP+1~, ASTP+20, ASTP+22 , ASTP+24, YESNO+1~, YESNO+4, YESNO1+1~, YESNO1+5, YESNO2+1~, YESNO2+5, CONFIRM+1~, CONFIRM+5, SELPOS+1~ , SELPOS+6, DATE+3~, DATE+8*, DATE+10, DATE+11, DATE+12!, WAITYN+1~, WAITYN+4~, WAITYN+8*, WAITYN+9 |