SCMCMHP2 ;ALB/CMM - Practitioner's Patients ; 12/12/00 3:46pm
Source file <SCMCMHP2.m>
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 |
---|---|---|
DRIVE | ;
|
|
LOOPPT(ARY,PRAC) | ;loop through patients for practitioner
|
|
SETFORM(PIEN,CNAME,PINF) | ;Format for clinic info only for multiples
|
|
GETPINF(PIEN,CLIEN,PINF) | ||
FORMAT(CNAME,PINF,PC,TIEN,TNAME,PRAC,PNAME,POSN,TPI,PRCP) | ; format data for display
|
|
FORMATAC(CNAME,PINF,PC,TIEN,TNAME,PRAC,PNAME,POSN,TPI,PRCP) | ; format data for display
|
|
STOR(IIEN,SEC,TRD,PINF,PNAME,TNAME,TPI,SCCNT) | ;
|
|
STORA(IIEN,SEC,TRD,PINF,PNAME,TNAME,TPI,SCCNT) | ;
|
|
PDATA(DFN,CLNEN,CNAME,FLAG) | ;
; Patch 589 - copied from SCRPEC so that the SSN can be formatted: ; xxxxxNNNN |
|
SETUP(IIEN,INAME,TIEN,TNAME,PRAC,PNAME,POSN,TPI,PRCP) | ;
|
Name | Field # of Occurrence |
---|---|
$$LST^DGMTU | PDATA+13 |
$$PTPR^SCAPMC14 | DRIVE+12 |
$$OKPREC2^SCMCLK | LOOPPT+34 |
$$SETUP^SCMCMHP2 | FORMAT+14, FORMATAC+14 |
$$PDATA^SCRPEC | GETPINF+3 |
$$FORMAT^SCRPEC2 | PDATA+20 |
ALL^SCRPPAT3 | DRIVE+6 |
SETASCL^SCRPRAC2 | LOOPPT+26 |
$$ELIG^SCRPU3 | PDATA+14 |
$$GETLAST^SCRPU3 | PDATA+17 |
$$GETNEXT^SCRPU3 | PDATA+18 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DIC(4 - [#4] | SETUP+3 |
^DPT - [#2] | PDATA+8, PDATA+10 |
^SCPT(404.42 - [#404.42] | LOOPPT+14 |
^SCPT(404.43 - [#404.43] | LOOPPT+11 |
^SCTM(404.51 - [#404.51] | LOOPPT+18, SETUP+2 |
^SCTM(404.57 - [#404.57] | LOOPPT+22 |
^VA(200 - [#200] | LOOPPT+32 |
Name | Line Occurrences |
---|---|
$$PDATA | LOOPPT+39 |
FORMAT | LOOPPT+40 |
FORMATAC | SETFORM+2 |
GETPINF | LOOPPT+35 |
LOOPPT | DRIVE+14 |
SETFORM | LOOPPT+41 |
STOR | FORMAT+17, FORMAT+18, FORMAT+19 |
STORA | FORMATAC+17, FORMATAC+18, FORMATAC+19 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ARRY | DRIVE+2~, DRIVE+3*, DRIVE+5, DRIVE+11, DRIVE+12, DRIVE+14, DRIVE+15 |
ARY | LOOPPT~, LOOPPT+6, LOOPPT+7 |
CLIEN | LOOPPT+3~, LOOPPT+26, LOOPPT+35, GETPINF~ |
CLIEN( | GETPINF+2, GETPINF+3 |
CLNEN | PDATA~, PDATA+17, PDATA+18 |
CNAME | LOOPPT+4~, LOOPPT+26, LOOPPT+36*, LOOPPT+39, LOOPPT+40, LOOPPT+41, SETFORM~, FORMAT~, FORMATAC~, STOR+32 , STORA+4, PDATA~, PDATA+20 |
CNAME( | SETFORM+2, GETPINF+3 |
CNAME(0 | LOOPPT+36 |
DATA | PDATA+6~, PDATA+7*, PDATA+20*, PDATA+21*, PDATA+22 |
DFN | PDATA~, PDATA+8, PDATA+10, PDATA+13, PDATA+14, PDATA+17, PDATA+18 |
DT | LOOPPT+34 |
ERR | FORMAT+12~, FORMAT+14*, FORMAT+15, FORMATAC+12~, FORMATAC+14*, FORMATAC+15 |
ERROR | DRIVE+2~, DRIVE+3*, DRIVE+5, DRIVE+11, DRIVE+12, DRIVE+15 |
FLAG | PDATA~, PDATA+20, PDATA+21 |
IIEN | FORMAT+12~, FORMAT+14, FORMAT+17, FORMAT+18, FORMATAC+12~, FORMATAC+14, FORMATAC+17, FORMATAC+18, STOR~, STOR+12 , STOR+13, STOR+14, STOR+16, STOR+17, STOR+19, STOR+22, STOR+24, STOR+27, STOR+30, STOR+31 , STOR+32, STORA~, STORA+1, STORA+2, STORA+3, STORA+4, SETUP~, SETUP+2*, SETUP+3, SETUP+8* , SETUP+10, SETUP+11, SETUP+12, SETUP+14, SETUP+15, SETUP+16, SETUP+17, SETUP+18, SETUP+20, SETUP+21 , SETUP+24, SETUP+26 |
INAME | FORMAT+12~, FORMAT+14, FORMATAC+12~, FORMATAC+14, SETUP~, SETUP+3*, SETUP+4*, SETUP+14 |
INF | DRIVE+2~ |
>> INST | LOOPPT+19 |
>> INST( | LOOPPT+19 |
LAST | PDATA+6~, PDATA+17*, PDATA+20, PDATA+21 |
MT | PDATA+6~, PDATA+13*, PDATA+20, PDATA+21 |
NAME | PDATA+6~, PDATA+9*, PDATA+20, PDATA+21 |
NEXT | PDATA+6~, PDATA+18*, PDATA+20, PDATA+21 |
NODE | LOOPPT+3~, LOOPPT+7*, LOOPPT+8, LOOPPT+9, LOOPPT+10, PDATA+6~, PDATA+8*, PDATA+9 |
NXT | DRIVE+2~, DRIVE+7*, DRIVE+8*, DRIVE+9, DRIVE+10, LOOPPT+3~, LOOPPT+5*, LOOPPT+6*, LOOPPT+7 |
OKAY | DRIVE+2~, DRIVE+12*, DRIVE+13 |
PC | LOOPPT+4~, LOOPPT+31*, LOOPPT+40, SETFORM+2, FORMAT~, FORMATAC~ |
PELIG | PDATA+6~, PDATA+14*, PDATA+20, PDATA+21 |
PID | STOR+9~, STOR+23*, STOR+24, PDATA+6~, PDATA+10*, PDATA+12*, PDATA+20, PDATA+21 |
PIEN | DRIVE+2~, DRIVE+9*, DRIVE+10*, DRIVE+12, DRIVE+14, LOOPPT+3~, LOOPPT+9*, LOOPPT+35, LOOPPT+39, LOOPPT+41 , SETFORM~, GETPINF~, GETPINF+3, STOR+9~, STOR+10*, STOR+12, STOR+13, STOR+14, STOR+16, STOR+22 , STOR+24, STOR+27, STOR+30, STOR+31, STOR+32, STORA+1, STORA+2, STORA+3, STORA+4 |
PINF | LOOPPT+4~, LOOPPT+35, LOOPPT+37*, LOOPPT+38, LOOPPT+39*, LOOPPT+40, LOOPPT+41, SETFORM~, GETPINF~, FORMAT~ , FORMAT+17, FORMAT+18, FORMAT+19, FORMATAC~, FORMATAC+17, FORMATAC+18, FORMATAC+19, STOR~, STOR+10, STOR+11 , STOR+23, STOR+27, STOR+30, STOR+31, STORA~, STORA+2, STORA+3 |
PINF( | SETFORM+2, GETPINF+3*, GETPINF+5* |
PINF(0 | LOOPPT+37 |
PNAME | LOOPPT+3~, LOOPPT+32*, LOOPPT+33, LOOPPT+40, SETFORM+2, FORMAT~, FORMAT+14, FORMAT+17, FORMAT+18, FORMAT+19 , FORMATAC~, FORMATAC+14, FORMATAC+17, FORMATAC+18, FORMATAC+19, STOR~, STORA~, SETUP~, SETUP+6*, SETUP+10 , SETUP+16, SETUP+20, SETUP+21, SETUP+23 |
POSN | LOOPPT+4~, LOOPPT+25*, LOOPPT+40, SETFORM+2, FORMAT~, FORMAT+14, FORMATAC~, FORMATAC+14, SETUP~, SETUP+10 , SETUP+23 |
PRAC | DRIVE+2~, LOOPPT~, LOOPPT+32, LOOPPT+40, SETFORM+2, FORMAT~, FORMAT+14, FORMAT+17, FORMAT+18, FORMAT+19 , FORMATAC~, FORMATAC+14, FORMATAC+17, FORMATAC+18, FORMATAC+19, STOR+17, STOR+19, SETUP~, SETUP+10, SETUP+11 , SETUP+16, SETUP+17, SETUP+18, SETUP+20, SETUP+21, SETUP+24 |
PRACT | DRIVE+4, DRIVE+5! |
PRCP | LOOPPT+4~, LOOPPT+34*, LOOPPT+40, SETFORM+2, FORMAT~, FORMAT+14, FORMATAC~, FORMATAC+14, SETUP~, SETUP+11 |
PSTAT | PDATA+6~, PDATA+15*, PDATA+20, PDATA+21 |
PTA | LOOPPT+3~, LOOPPT+13*, LOOPPT+14 |
PTAN | LOOPPT+3~, LOOPPT+14*, LOOPPT+15, LOOPPT+16 |
PTNAME | STOR+9~, STOR+11*, STOR+12, STOR+13, STOR+22 |
PTP | LOOPPT+3~, LOOPPT+11*, LOOPPT+12, LOOPPT+13, LOOPPT+21, LOOPPT+31 |
>> ROLE | LOOPPT+24 |
>> ROLE( | LOOPPT+24 |
SCCNT | SETFORM+1~, SETFORM+2*, GETPINF+1~, GETPINF+2*, GETPINF+3, GETPINF+5, FORMATAC+17, FORMATAC+18, FORMATAC+19, STOR~ , STORA~, STORA+1, STORA+2, STORA+3, STORA+4 |
SCX | SETUP+22~, SETUP+23*, SETUP+24 |
SEC | STOR~, STOR+12, STOR+13, STOR+14, STOR+16, STOR+22, STOR+24, STOR+27, STOR+30, STOR+31 , STOR+32, STORA~, STORA+1, STORA+2, STORA+3, STORA+4 |
>> SORT | FORMAT+17, FORMAT+18, FORMAT+19, FORMATAC+17, FORMATAC+18, FORMATAC+19, STOR+19, SETUP+8, SETUP+10, SETUP+12 , SETUP+14, SETUP+15 |
STATD | PDATA+6~, PDATA+16*, PDATA+20, PDATA+21 |
>> STORE | DRIVE+16, STOR+12, STOR+13, STOR+14, STOR+16, STOR+17, STOR+19, STOR+22, STOR+24*, STOR+27* , STOR+30*, STOR+31*, STOR+32*, STORA+1, STORA+2*, STORA+3*, STORA+4*, SETUP+10, SETUP+11, SETUP+12 , SETUP+14, SETUP+15, SETUP+16, SETUP+17, SETUP+18, SETUP+20, SETUP+21, SETUP+24, SETUP+26 |
>> SUMM | DRIVE+16, STOR+14, STOR+20 |
>> TEAM | LOOPPT+17 |
>> TEAM( | LOOPPT+17 |
TIEN | LOOPPT+3~, LOOPPT+16*, LOOPPT+17, LOOPPT+18, LOOPPT+40, SETFORM+2, FORMAT~, FORMAT+14, FORMAT+17, FORMAT+18 , FORMATAC~, FORMATAC+14, FORMATAC+17, FORMATAC+18, STOR+19, SETUP~, SETUP+2, SETUP+8*, SETUP+10, SETUP+11 , SETUP+12, SETUP+15, SETUP+18, SETUP+21, SETUP+24 |
TNAME | LOOPPT+4~, LOOPPT+20*, LOOPPT+40, SETFORM+2, FORMAT~, FORMAT+14, FORMAT+17, FORMAT+18, FORMATAC~, FORMATAC+14 , FORMATAC+17, FORMATAC+18, STOR~, STORA~, SETUP~, SETUP+7*, SETUP+12, SETUP+15, SETUP+23 |
TNODE | LOOPPT+4~, LOOPPT+18*, LOOPPT+19, LOOPPT+20 |
TPI | LOOPPT+3~, LOOPPT+21*, LOOPPT+22, LOOPPT+26, LOOPPT+34, LOOPPT+40, SETFORM+2, FORMAT~, FORMAT+14, FORMAT+17 , FORMAT+18, FORMAT+19, FORMATAC~, FORMATAC+14, FORMATAC+17, FORMATAC+18, FORMATAC+19, STOR~, STOR+12, STOR+13 , STOR+19, STOR+22, STOR+24, STOR+27, STOR+30, STOR+31, STOR+32, STORA~, STORA+1, STORA+2 , STORA+3, STORA+4, SETUP~, SETUP+10, SETUP+11, SETUP+16, SETUP+21, SETUP+24 |
TPIEN | LOOPPT+3~, LOOPPT+10*, LOOPPT+11 |
TPN | LOOPPT+3~, LOOPPT+22*, LOOPPT+23, LOOPPT+24, LOOPPT+25 |
TPRC | DRIVE+2~, DRIVE+4*, DRIVE+6, DRIVE+8, DRIVE+9, DRIVE+10, DRIVE+15 |
TRD | STOR~, STOR+12, STOR+13, STOR+14, STOR+16, STOR+22, STOR+24, STOR+27, STOR+30, STOR+31 , STOR+32, STORA~, STORA+1, STORA+2, STORA+3, STORA+4 |
U | LOOPPT+19, LOOPPT+24, LOOPPT+34, GETPINF+5 |