BDPADD ; IHS/CMI/TMJ - ADD A NEW DESIGNATED PROVIDER ;
Source file <BDPADD.m>
Package | Total | Call Graph |
---|---|---|
VA Fileman | 4 | ^DIC ^DIE $$GET1^DIQ ^DIR |
IHS Designated Provider | 3 | (EOP,HDR,PAUSE)^BDP (DIC,FILE)^BDPFMC ^BDPKILL |
IHS Patient | 1 | $$DOD^AUPNPAT |
Name | Comments | DBIA/ICR reference |
---|---|---|
PROVDISP | ;Display if Patient has existing Designated Providers
|
|
PATIENT | ; GET PATIENT
|
|
INFORM | ;Data Entry Explanation
|
|
ASKGO | ;Ask to continue
|
|
PROV | ; GET DESIGNATED PROVIDER
|
|
GETTYPE | ;Do Get Date if no existing Designated Providers
|
|
NEXT | ;2ND $O
|
|
START | ;
|
|
ADD | ; ADD NEW DESIGNATED PROVIDER RECORD
|
|
PATIENT2 | ; ASK FOR PATIENT UNTIL USER SELECTS OR QUITS
|
|
EOJ | ; END OF JOB
|
|
ASK | ;Ask to Continue
|
|
MAIN | ;
|
|
TYPE | ; GET CATEGORY TYPE FOR DESIGNATED PROVIDER
|
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 |
|
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 |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | Classic Fileman Calls |
^AUPNPAT - [#9000001] | Classic Fileman Calls |
^BDPRECN - [#90360.1] | Classic Fileman Calls |
^BDPTCAT - [#90360.3] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^BDPRECN - [#90360.1] | NEXT+7, ADD+3, ASKGO+21, ASKGO+22, ASKGO+24, ASKGO+28*, ASKGO+29* |
^BDPRECN("AA" | PROVDISP+7, PROVDISP+11, NEXT+2, ADD+2 |
^BDPTCAT - [#90360.3] | NEXT+6, ASKGO+4, ASKGO+16 |
^DPT - [#2] | PATIENT2+4, PROVDISP+4, NEXT+5, ASKGO+3, ASKGO+15 |
^VA(200 - [#200] | NEXT+9, PROV+9 |
Name | Line Occurrences |
---|---|
ADD | GETTYPE+3 |
ASK | MAIN+8 |
EOJ | START+4 |
GETTYPE | MAIN+6 |
INFORM | START+2 |
MAIN | START+3 |
NEXT | PROVDISP+11 |
PATIENT | MAIN+3 |
PATIENT2 | PATIENT+1 |
PROV | ADD+7 |
PROVDISP | MAIN+5 |
TYPE | GETTYPE+1 |
Name | Field # of Occurrence |
---|---|
^(0 | ASKGO+21* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> BDPCOUNT | PROVDISP+10*, PROVDISP+11*, NEXT+10 |
>> BDPCPRV | NEXT+7*, NEXT+8, NEXT+9 |
>> BDPCPRVP | NEXT+8*, NEXT+9*, NEXT+10 |
BDPDFN | PATIENT+1, PATIENT2+4*, PATIENT2+6!, PROVDISP+4, PROVDISP+7, PROVDISP+11, NEXT+2, NEXT+5, ADD+2, ASKGO+3 , ASKGO+11, ASKGO+15 |
>> BDPLIEN | ASKGO+22*, ASKGO+23*, ASKGO+26*, ASKGO+28, ASKGO+32 |
>> BDPLINKI | ASKGO+30* |
>> BDPLNUM | ASKGO+24*, ASKGO+25*, ASKGO+27*, ASKGO+29 |
>> BDPLPROV | ADD+3* |
>> BDPPROV | PROV+1*, PROV+8*, PROV+9, ASKGO+31 |
>> BDPPTNAM | NEXT+5* |
>> BDPQ | START+3, MAIN+1*, MAIN+4, MAIN+6, MAIN+9, GETTYPE+2, PATIENT+1, PATIENT2+1*, PATIENT2+5*, ASK+1* , ASK+3*, ASK+4*, PROVDISP+7*, PROVDISP+8*, TYPE+2*, TYPE+7*, PROV+1*, PROV+7*, PROV+10*, ADD+1* , ADD+8, ASKGO+8*, ASKGO+9*, ASKGO+34* |
>> BDPREC("PAT N | AME" , PATIENT2+4*, PATIENT2+6! |
>> BDPREC("PROV | TYPE" , TYPE+6* |
>> BDPRIEN | NEXT+1*, NEXT+2*, NEXT+4, NEXT+7, ASKGO+17*, ASKGO+19, ASKGO+20, ASKGO+21, ASKGO+22, ASKGO+24 , ASKGO+28, ASKGO+29, ASKGO+32 |
>> BDPRPROV | PROV+8* |
>> BDPRPRVP | PROV+9*, ASKGO+2, ASKGO+14 |
>> BDPRR | ADD+2*, ADD+3, ADD+4, ADD+5 |
>> BDPTYPE | PROVDISP+9*, PROVDISP+11*, NEXT+2, NEXT+3, NEXT+6, TYPE+6*, PROV+3, PROV+4, ADD+2, ASKGO+4 , ASKGO+11, ASKGO+16 |
>> BDPTYPNM | NEXT+6*, NEXT+10 |
DA | PATIENT2+8!, ASK+2!, TYPE+4!, PROV+5!, ASKGO+32*! |
DA(1 | ASKGO+32* |
DIC | PATIENT2+2*, PROV+2*, PROV+5!, ASKGO+11* |
DIC("A" | PROV+2* |
DIC("B" | PROV+3! |
DIC("DR" | ASKGO+11* |
DIC("S" | PROV+3*, PROV+4* |
DIC(0 | PATIENT2+2*, PROV+2*, ASKGO+11* |
DIE | ASKGO+32*! |
DINUM | ASKGO+32! |
DIR | PATIENT2+8!, ASK+2!, TYPE+4!, ASKGO+7! |
DIR("?" | ASKGO+7* |
DIR("A" | PATIENT2+8*, ASK+2*, ASKGO+7* |
DIR("B" | PATIENT2+8*, ASK+2*, TYPE+4*, ASKGO+7* |
DIR(0 | PATIENT2+8*, ASK+2*, TYPE+4*, ASKGO+7* |
>> DIRUT | ASK+3, TYPE+5, PROV+5*, PROV+6, ASKGO+7*, ASKGO+8 |
>> DLAYGO | ASKGO+11* |
DR | ASKGO+31*, ASKGO+32! |
DT | ASKGO+31 |
>> DUOUT | PROV+5, ASKGO+7 |
>> I | PROVDISP+11*, NEXT+11* |
U | PATIENT2+4, PROVDISP+4, NEXT+5, NEXT+6, NEXT+7, NEXT+9, PROV+8, PROV+9, ADD+3, ASKGO+3 , ASKGO+4, ASKGO+15, ASKGO+16, ASKGO+21, ASKGO+22, ASKGO+24, ASKGO+28, ASKGO+29 |
>> X | ASKGO+11* |
>> Y | PATIENT2+3, PATIENT2+4, PATIENT2+6, ASK+4, TYPE+6, PROV+7, PROV+8, ASKGO+9, ASKGO+13, ASKGO+17 |
>> Y(0 | TYPE+6 |