AMHSFR ; IHS/CMI/LAB - REVIEW SF BY DATE 28 Apr 2009 10:46 AM ;
Source file <AMHSFR.m>
Package | Total | Call Graph |
---|---|---|
Mental Health Social Services | 8 | DISPDG^AMHLE GETPAT^AMHLEA $$INCOMPSF^AMHLESF EP^AMHLESF1 $$ALLOWP^AMHUTIL ($$DEMO,DEMOCHK)^AMHUTIL1 PTSEC^AMHUTIL2 EP^AMHVD |
VA Fileman | 6 | ^DDS ^DIC FILE^DICN ^DIE ^DIK ^DIR |
Registration | 5 | NOTICE^DGSEC4 EN^VALM TERM^VALM0 (CLEAR,FULL)^VALM1 EN^VALM2 |
IHS VA Utilities | 4 | $$VAL^XBDIQ1 ^XBFMK VIEWR^XBLM EN^XBVK |
Kernel | 2 | ($$FMADD,$$FMTE,$$NOW)^XLFDT DISP^XQORM1 |
IHS Patient | 1 | (,$$HRN,KILL)^AUPNPAT |
Package | Total | Caller Graph |
---|---|---|
Mental Health Social Services | 2 | AMHGD AMHGSSF |
Name | Comments | DBIA/ICR reference |
---|---|---|
DISP | ;EP - called from protocol
|
|
ALLOW(S,R) | ;EP - CAN THIS USER SEE THIS SUICIDE FORM?
|
|
EDITX9 | ;
|
|
HELP | ; -- help code
|
|
DEFAULT | ;
|
|
HS | ;EP called from protocol to generate hs
|
|
BV | ;
|
|
PAUSE | ;EP
|
|
DONE | ;
|
|
HDR | ; -- header code
|
|
CTR(X,Y) | ;EP - Center X in a field Y wide.
|
|
DGSECD | ;
|
|
DGSECE | ;
|
|
DGSECX | ;
|
|
INIT | ; -- init variables and list array
|
|
DEMO | ;
|
|
CHECK | ; check record for completeness
|
|
EDITD9 | ;
|
|
EN | ;
|
|
D | ;date range
|
|
GETTYPE | ;
|
|
START | ;
|
|
ADD | ;EP
|
|
EOJ | ;
|
|
ADDSF(AMHPAT) | ;EP called from protocol to add a new form
|
|
EDIT | ;EP - called from protocol
|
|
PROV | ;
|
|
GATHER | ;
|
|
EXPND | ; -- expand code
|
|
ADDDS | ;screenman call
|
|
EXIT | ; -- exit code
|
|
DEL | ;EP - called from protocol
|
|
UPI(P,D) | ;EP
|
|
GETDATE | ;EP - GET DATE OF ENCOUNTER
|
|
EDITR9 | ;
|
Name | Field # of Occurrence |
---|---|
DISPDG^AMHLE | DGSECE+5, DGSECD+5, DGSECX+5 |
GETPAT^AMHLEA | ADD+3 |
$$INCOMPSF^AMHLESF | GATHER+10 |
EP^AMHLESF1 | EDITD9+2 |
$$ALLOWP^AMHUTIL | ALLOW+9, ALLOW+10 |
$$DEMO^AMHUTIL1 | GATHER+8 |
DEMOCHK^AMHUTIL1 | DEMO+1 |
PTSEC^AMHUTIL2 | DGSECE+3, DGSECD+3, DGSECX+3 |
EP^AMHVD | BV+3 |
^AUPNPAT | HS+2, ADD+5 |
$$HRN^AUPNPAT | GATHER+11 |
KILL^AUPNPAT | DONE+3, EXIT+7, EOJ+7 |
^DDS | ADDDS+2 |
NOTICE^DGSEC4 | DGSECE+9, DGSECD+9, DGSECX+9 |
^DIC | DEFAULT+2, PROV+3 |
FILE^DICN | GETDATE+16 |
^DIE | EDITR9+1, CHECK+5, CHECK+31 |
^DIK | EDITX9+4, CHECK+32 |
^DIR | D+3, D+5, DGSECE+6, DGSECD+6, DGSECX+6, EDITX9+1, GETDATE+2, GETDATE+8, CHECK+33, PAUSE+1 |
EN^VALM | EN+3 |
TERM^VALM0 | EXIT+1 |
CLEAR^VALM1 | EN+4, ADD+8, EOJ+5 |
FULL^VALM1 | DEMO+3, EDIT+6, DISP+6, DEL+8, HS+1, ADD+1, ADDSF+1 |
EN^VALM2 | EDIT+1, DISP+1, DEL+3 |
$$VAL^XBDIQ1 | GATHER+12, GATHER+13, GETDATE+7, CHECK+2, CHECK+3, CHECK+4, CHECK+5, CHECK+30, CHECK+31 |
^XBFMK | DONE+2, PROV+1 |
VIEWR^XBLM | HS+7 |
EN^XBVK | DONE+1, HS+4, HS+8, EOJ+1 |
$$FMADD^XLFDT | GATHER+3 |
$$FMTE^XLFDT | HDR+1 |
$$NOW^XLFDT | EDITR9+1, GETDATE+14 |
DISP^XQORM1 | HELP+1 |
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 |
|
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 |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | Classic Fileman Calls |
^APCHSCTL - [#9001015] | Classic Fileman Calls |
^AMHPSUIC - [#9002011.65] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^AMHPSUIC - [#9002011.65] | GATHER+6, GATHER+9, EDIT+5, DGSECE+1, DGSECE+2, EDITR9+2, DISP+5, DGSECD+1, DGSECD+2, DEL+7 , DGSECX+1, DGSECX+2, GETDATE+5, CHECK+7, CHECK+8, CHECK+9, CHECK+10!, CHECK+11, CHECK+12, CHECK+13 , CHECK+14, CHECK+17, CHECK+20, CHECK+21, CHECK+22, CHECK+23, CHECK+24, CHECK+25, CHECK+26, CHECK+30 , CHECK+31, ALLOW+5, ALLOW+7, ALLOW+10 |
^AMHPSUIC("AB" | GATHER+4, GATHER+5 |
^AMHPSUIC("AC" | GETDATE+5 |
^AMHSITE - [#9002013] | GETTYPE+1, GETTYPE+2, ALLOW+9 |
^AMHTSCF - [#9002014.9] | CHECK+26 |
^AMHTSDRG - [#9002014.7] | CHECK+14 |
^AMHTSSU - [#9002014.71] | CHECK+22 |
^APCHSCTL - [#9001015] | GETTYPE+3 |
^AUTTLOC - [#9999999.06] | UPI+2 |
^AUTTSITE(1 | UPI+2*, UPI+4 |
^DD(9002011.65 | CHECK+2, CHECK+3 |
^DPT - [#2] | GATHER+6, GATHER+11, HS+6 |
^VA(200 - [#200] | PROV+3 |
^XUSEC("AMHZ DELETE RECORD" | DEL+2 |
Name | Line Occurrences |
---|---|
$$ALLOW | GATHER+7 |
$$CTR | START+2 |
$$UPI | GETDATE+13 |
ADDDS | EDITR9+3, GETDATE+19, CHECK+32 |
ADDSF | ADD+7 |
CHECK | ADDDS+4 |
D | D+7, DEMO+2 |
DEFAULT | GETTYPE+1, GETTYPE+2 |
DONE | START+3 |
EDITD9 | DGSECD+1, DGSECD+4 |
EDITR9 | DGSECE+1, DGSECE+4 |
EDITX9 | DGSECX+1, DGSECX+4 |
EN | DEMO+3 |
EXIT | DEMO+3, EDIT+2, EDIT+3, EDIT+5, DGSECE+7, EDITR9+4, DISP+2, DISP+3, DISP+5, DGSECD+7 , EDITD9+3, DEL+2, DEL+4, DEL+5, DEL+7, DGSECX+7, EDITX9+2, EDITX9+3, EDITX9+5, BV+4 , HS+9, ADD+4, ADD+9, PROV+4, GETDATE+3, GETDATE+12, GETDATE+17, GETDATE+20, ADDDS+3, CHECK+32 |
GATHER | EN+2, INIT+1, EXIT+3 |
GETTYPE | HS+3 |
HDR | EXIT+5 |
PAUSE | EDIT+5, DISP+5, DEL+2, DEL+7, GETDATE+12, GETDATE+17, ADDDS+3, CHECK+32 |
PROV | GETDATE+3 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | HS+6*, HS+7, HS+8!, EOJ+4! |
AMCHDAYS | HS+8! |
AMCHDOB | HS+8! |
AMHBD | D+1!, D+3*, D+7, GATHER+4, HDR+1 |
AMHC | CHECK+1*, CHECK+2*, CHECK+3*, CHECK+4*, CHECK+9*, CHECK+14*, CHECK+16*, CHECK+18*, CHECK+22*, CHECK+26* , CHECK+29*, CHECK+30*, CHECK+32, EXIT+6! |
>> AMHD | GATHER+9*, GATHER+11 |
>> AMHDATE | GETDATE+2*, GETDATE+4*, GETDATE+5, GETDATE+13, GETDATE+14 |
>> AMHDEMO | DEMO+1, DEMO+2, GATHER+8 |
>> AMHDOB | GATHER+6*, GATHER+11 |
>> AMHDP | PROV+2* |
AMHED | D+1!, D+5*, D+7, GATHER+3, HDR+1 |
AMHF | CHECK+2*, CHECK+3*, EXIT+6! |
>> AMHIISFE | ADDDS+1* |
AMHLINE | GATHER+2*, GATHER+10*, GATHER+14, INIT+2, EXIT+4, EXIT+6! |
AMHPAT | DGSECE+2*, DGSECE+3, DGSECE+9, EDITR9+2*, DGSECD+2*, DGSECD+3, DGSECD+9, DGSECX+2*, DGSECX+3, DGSECX+9 , BV+2~, HS+7~, ADD+2*, ADD+4, ADD+5, ADD+6, ADD+7, ADDSF~, GETDATE+5, GETDATE+13 , GETDATE+14, EXIT+6! |
>> AMHPROV | PROV+5*, GETDATE+14 |
>> AMHQUIT | D+3*, D+5*, ADDDS+3* |
AMHRDEL | EDIT+5!, DISP+5!, DEL+7! |
AMHRESU | DGSECE+3, DGSECE+8!, DGSECE+9, DGSECD+3, DGSECD+8!, DGSECD+9, DGSECX+3, DGSECX+8!, DGSECX+9, EXIT+6! |
AMHRESU(1 | DGSECE+4, DGSECD+4, DGSECX+4 |
>> AMHSD | GATHER+3*, GATHER+4*, GATHER+5 |
AMHSF | EDIT+4*, EDIT+5!, DGSECE+1, DGSECE+2, EDITR9+1, EDITR9+2, DISP+4*, DISP+5!, DGSECD+1, DGSECD+2 , EDITD9+2, DEL+6*, DEL+7!, DGSECX+1, DGSECX+2, EDITX9+4, GETDATE+18*, ADDDS+2, CHECK+2, CHECK+3 , CHECK+4, CHECK+5, CHECK+7, CHECK+8, CHECK+9, CHECK+10, CHECK+11, CHECK+12, CHECK+13, CHECK+14 , CHECK+17, CHECK+20, CHECK+21, CHECK+22, CHECK+23, CHECK+24, CHECK+25, CHECK+26, CHECK+30, CHECK+31 , CHECK+32, EXIT+6! |
AMHSFR | EN+1!, GATHER+1! |
AMHSFR( | GATHER+14* |
AMHSFR("IDX" | GATHER+14*, EDIT+4, DISP+4, DEL+6 |
AMHX | GATHER+5*, GATHER+6, GATHER+7, GATHER+9, GATHER+10, GATHER+12, GATHER+13, GATHER+14, EXIT+6! |
>> APCHSPAT | HS+5*, HS+6 |
>> APCHSTYP | HS+4, GETTYPE+2*, GETTYPE+3*, DEFAULT+1*, DEFAULT+4* |
BALMON | EOJ+6! |
D | CHECK+13*, CHECK+14, CHECK+21*, CHECK+22, CHECK+25*, CHECK+26, UPI~, UPI+4 |
D0 | GETDATE+13!, GETDATE+16! |
DA | DGSECE+6!, EDITR9+1*, DGSECD+6!, DGSECX+6!, EDITX9+1!, EDITX9+4*, DEFAULT+2!, PROV+3!, GETDATE+8!, GETDATE+13! , ADDDS+2*, CHECK+5*!, CHECK+31*!, CHECK+32*, CHECK+33!, EOJ+4! |
DD | GETDATE+13! |
DDS | EOJ+4! |
DDSFILE | ADDDS+2*, EOJ+3! |
DFN | GATHER+6*, GATHER+8, GATHER+11, EDITR9+2*, BV+3, HS+2, HS+5, HS+7~, ADD+6*, EXIT+6! , EOJ+2! |
DIADD | PROV+3!, GETDATE+13*, GETDATE+16! |
DIC | DEFAULT+2*!, PROV+3*!, GETDATE+13!*, GETDATE+16!, EOJ+4! |
DIC("A" | PROV+3* |
DIC("B" | PROV+3* |
DIC("DR" | GETDATE+14*, GETDATE+15* |
DIC(0 | DEFAULT+2*, PROV+3*, GETDATE+13* |
DIE | EDITR9+1*, GETDATE+16!, CHECK+5*!, CHECK+31*! |
>> DIK | EDITX9+4*, CHECK+32* |
DIMSG | ADDDS+3! |
DINUM | GETDATE+13! |
DIPGM | EOJ+3! |
DIR | D+2!, D+4!, DGSECE+6!, DGSECD+6!, DGSECX+6!, EDITX9+1!, GETDATE+2!, GETDATE+8!, CHECK+33!, PAUSE+1! |
DIR("A" | D+2*, D+4*, DGSECE+6*, DGSECD+6*, DGSECX+6*, EDITX9+1*, GETDATE+2*, GETDATE+8*, CHECK+33*, PAUSE+1* |
DIR("B" | DGSECE+6*, DGSECD+6*, DGSECX+6*, EDITX9+1*, GETDATE+8*, CHECK+33* |
DIR(0 | D+2*, D+4*, DGSECE+6*, DGSECD+6*, DGSECX+6*, EDITX9+1*, GETDATE+2*, GETDATE+8*, CHECK+33*, PAUSE+1* |
>> DIRUT | EDITX9+2, GETDATE+2*, GETDATE+3, GETDATE+9, CHECK+34, PAUSE+1* |
DLAYGO | PROV+3!, GETDATE+13*, GETDATE+16! |
DO | GETDATE+13! |
DR | EDITR9+1*, PROV+3!, GETDATE+13!, GETDATE+16!, ADDDS+2*, CHECK+5*!, CHECK+31*!, EOJ+4! |
DT | EDITR9+1, GETDATE+2, GETDATE+14 |
>> DUOUT | GETDATE+2, PAUSE+1 |
DUZ | GATHER+7, EDITR9+1, DEL+2, PROV+3, GETDATE+14 |
DUZ(2 | GATHER+11, GETTYPE+1, GETTYPE+2, ALLOW+9 |
>> G | GETDATE+5*, GETDATE+11*, CHECK+7*, CHECK+8*, CHECK+16, CHECK+17*, CHECK+18, CHECK+19, CHECK+23*, CHECK+24* , CHECK+29 |
I | EXIT+6! |
IOF | START+1, ADDSF+2 |
IOM | CTR+1 |
P | UPI~, UPI+1, UPI+4, ALLOW+6~, ALLOW+7*, ALLOW+8, ALLOW+9, ALLOW+10 |
R | EDIT+3*!, EDIT+4, EDIT+5!, DISP+3*!, DISP+4, DISP+5!, DEL+5*!, DEL+6, DEL+7!, ALLOW~ , ALLOW+4, ALLOW+5, ALLOW+7, ALLOW+10 |
R1 | EDIT+5!, DISP+5!, DEL+7! |
S | ALLOW~, ALLOW+3, ALLOW+9, ALLOW+10 |
U | GATHER+6, GATHER+9, GATHER+11, DGSECE+1, DGSECE+2, EDITR9+2, DGSECD+1, DGSECD+2, DGSECX+1, DGSECX+2 , HS+6, GETTYPE+2, PROV+3, GETDATE+5, CHECK+2, CHECK+3, CHECK+8, CHECK+9, CHECK+10, CHECK+11 , CHECK+13, CHECK+14, CHECK+17, CHECK+21, CHECK+22, CHECK+24, CHECK+25, CHECK+26, CHECK+30, CHECK+31 , UPI+2, UPI+4, ALLOW+7, ALLOW+10 |
VALM | EOJ+6! |
VALMAR | EOJ+6! |
VALMBCK | EXIT+2*, EOJ+6! |
VALMBG | EOJ+6! |
VALMCAP | EOJ+6! |
VALMCC | EOJ+6! |
VALMCNT | INIT+2*, EXIT+4*, EOJ+6! |
VALMCOFF | EOJ+6! |
VALMCON | EOJ+6! |
VALMEVL | EOJ+6! |
VALMHDR | EOJ+6! |
VALMHDR(1 | HDR+1* |
VALMHDR(2 | HDR+2* |
VALMHDR(3 | HDR+3* |
VALMHDR(4 | HDR+4* |
VALMIOXY | EOJ+6! |
VALMKEY | EOJ+6! |
VALMLFT | EOJ+6! |
VALMLST | EOJ+6! |
VALMMENU | EOJ+6! |
VALMSGR | EOJ+6! |
VALMUP | EOJ+6! |
VALMVAR | EOJ+6! |
VALMWD | EOJ+5, EOJ+6! |
VALMY | EDIT+2, EDIT+3!, DISP+2, DISP+3!, DEL+4, DEL+5! |
VALMY(0 | EDIT+3, DISP+3, DEL+5 |
X | GATHER+10*, GATHER+11*, GATHER+12*, GATHER+13*, GATHER+14, CTR~, CTR+1, HDR+3*, HDR+4*, HELP+1* , DEFAULT+2*, GETDATE+5*, GETDATE+7, GETDATE+13*, GETDATE+16!, CHECK+7*, CHECK+8, CHECK+9, CHECK+10, CHECK+11 , CHECK+12, CHECK+13, CHECK+14, CHECK+20*, CHECK+21, CHECK+22, CHECK+23*, CHECK+24, CHECK+25, CHECK+26 , EXIT+6!, EOJ+4! |
XQORNOD | EDIT+3!, DISP+3!, DEL+5! |
XQORNOD(0 | EDIT+1, DISP+1, DEL+3 |
Y | D+3, D+5, CTR~, CTR+1, DGSECE+7, DGSECD+7, DGSECX+7, EDITX9+3, HS+2*, DEFAULT+3 , DEFAULT+4, ADD+5*, PROV+4, PROV+5, GETDATE+4, GETDATE+5*, GETDATE+6*, GETDATE+9*, GETDATE+10, GETDATE+12 , GETDATE+17, GETDATE+18, CHECK+12*, CHECK+13, CHECK+14, CHECK+32, CHECK+34*, EXIT+6!, EOJ+3!, EOJ+4! |
Z | CHECK+7*, CHECK+23*, EXIT+6! |