ACHS ;IHS/ITSC/PMF - CHS SUB-ROUTINES ; [ 01/18/2005 1:14 PM ]
Source file <ACHS.m>
Package | Total | Call Graph |
---|---|---|
Kernel | 7 | ^%ZIS ^%ZISC ENDR^%ZISS $$VERSION^%ZOSV (CLEAN,PREP,SAY)^XGF ($$FMADD,$$FMTE,$$FMTH,$$HTE)^XLFDT $$REPEAT^XLFSTR |
VA Fileman | 4 | (,COMMA,YX)^%DTC ^DIC ^DIE ^DIR |
Contract Health Management Information System | 2 | $$OS^ACHS (READ,SB1)^ACHSFU |
IHS VA Utilities | 2 | $$DIR^XBDIR ($$C,$$CV)^XBFUNC |
IHS Patient | 1 | ($$MCD,$$MCR,$$PI)^AUPNPAT2 |
Name | Comments | DBIA/ICR reference |
---|---|---|
DATE(A,N,M) | ;EP - prmpt for dt
; A = "B" or "E"; N = Report Name;M = Modifier for prompt |
|
CPI | ;EP
|
|
PARM(N,P) | ;EP - N = node, P= piece, return the fac parameter value.
|
|
ERPT | ;EP - Stand end of a rep
|
|
DN(S,P) | ;EP - Ret Denial data from node S, piece P
|
|
BM | ;EP -Set bot mar to ACHSBM
|
|
PAWNEE | ;IHS/OKCAO/POC PAWNEE BEN PKG
|
|
PB() | ;EP - Print/Browse.
|
|
LOCK2 | ;
|
|
USR() | ;EP - Ret name of current user for ^VA(200.
|
|
LOCK1 | ;
|
|
BRPT | ;EP -Stand beg of rpt
|
|
SB(X) | ;EP - Strip leading & trailing blanks from X.
|
|
FY(%) | ;EP - Given a FY, return beg/end dates.
|
|
DIET(DR,Z) | ;EP - Ed Trans fields
|
|
AD(P) | ;EP -P=piece of AO DIR
|
|
EBB(B,E) | ;EP - Compare Beg and End dates for a rep
|
|
STATUSLN | ;
|
|
L(F,N) | ;EP - F = File #; N = Field #.
|
|
RRE(P,D) | ; Does pt have Railroad insurance on date? 1 = yes, 0 = no.
; I = IEN in ^AUPNRRE multiple. |
|
FUDT | ;EP
|
|
GDT(JDT) | ;EP -JDT-Julian Date, ret Gregorian Date-Ext format
|
|
ASF(F) | ;EP -Ret ASUFAC given DUZ(2) ;allows alpha in aufac
|
|
TRAN(S,P) | ;EP - Ret Transaction data from node S, piece P
; S will always be 0. |
|
EX() | ;EP - Ret file Exp dir
|
|
YN | ;EP
|
|
ISMGR(TMPDUZ) | ;EP-opt ACHSMENU
|
|
PTLK | ;EP Stand pt lookup using DIC.
|
|
HDR | ;EP - Print menu header.
|
|
ISMGRHD | ;EP
|
|
FC(Y) | ;EP -Ret Fin Code-site Y=DUZ(2)
|
|
JDT(X1,ACHS) | ;EP - Given FM dt, Ret Julian Dt. IF ACHS, 3 places.
|
|
RPL(X,Y,Z) | ;EP - In X, Replace Y with Z.
|
|
DIC(D,O,A,B,S) | ;EP -DIC Lookup
|
|
AOP(N,P) | ;EP -N=node, P=piece, ret AO Par
|
|
HRN(P,L) | ;EP -Ret HRN for DFN-P DUZ(2)-L
|
|
VIDEO | ;EP - Set reverse video vars
|
|
RTRN | ;EP - ask usr to press RET
|
|
C(X,Y) | ;EP -Center X in field len Y
|
|
LOCKMSG | ;
|
|
H | ;EP -menu header
|
|
FMT | ;EP
|
|
JTF(JDT) | ;EP - Given Julian dt ret fm dt
|
|
IM() | ;EP - ReT file Imp dir
|
|
FYSEL(X) | ;EP
|
|
SUD(P) | ;EP -P=piece of SU DIR info
|
|
LOGO | ;EP - Dis logo-main menu
|
|
DIE(DR,Z) | ;EP -Ed Doc fld
|
|
OS() | ;EP - Ret OS fr ^%ZOSF("OS") or RPMS Site file.
|
|
INSURED(DFN,ACHSDATE) | ;EP - Does pt have INS on a dt
|
|
NOW | ;EP - Set cur time into ACHSTIME
|
|
LOC() | ;EP - Ret loc
|
|
DOC(S,P) | ;EP - Ret Doc data from node S, piece P
|
|
RREX | ;
|
|
DF(S,P) | ;EP - Ret Def Svc fr node S, piece P
|
|
PHDR | ;EP - Print parent menu header.
|
|
LOCK(V,M) | ;EP - LOCK var V, mode M (+/-).
|
|
CLEAN(FROM) | ;EP fr ACHSAVAR-clean err glb>90 days
|
|
ZEROTH(A,B,C,D,E,F,G,H,I,J,K) | ;EP - Return 0th node. A is file #, rest fields.
|
|
SHDR | ;EP - Screen header.
|
|
HELP(L,R) | ;EP -Dis at label L, RTN R
|
|
DIR(O,A,B,Q,H,R) | ;EP -^DIR interface
|
|
CLOSEALL | ;EP -Close all HFS dev
|
Name | Field # of Occurrence |
---|---|
^%DTC | JDT+4 |
COMMA^%DTC | FMT+3 |
YX^%DTC | ISMGR+14 |
^%ZIS | BRPT+1 |
^%ZISC | CLOSEALL+2, ERPT+1 |
ENDR^%ZISS | VIDEO+1 |
$$VERSION^%ZOSV | STATUSLN+1 |
$$OS^ACHS | STATUSLN+4 |
READ^ACHSFU | ISMGR+10, ISMGR+15, ISMGR+18 |
SB1^ACHSFU | FYSEL+1 |
$$MCD^AUPNPAT2 | INSURED+2 |
$$MCR^AUPNPAT2 | INSURED+1 |
$$PI^AUPNPAT2 | INSURED+3 |
^DIC | DIC+5, PTLK+10, PAWNEE+2 |
^DIE | DIE+4, DIET+4 |
^DIR | DIR+10 |
$$DIR^XBDIR | DATE+8, FYSEL+7, PB+1, RTRN+2 |
$$C^XBFUNC | BRPT+3, BRPT+4, H+12, LOGO+13, LOGO+14, LOGO+15, SHDR+2 |
$$CV^XBFUNC | H+12 |
CLEAN^XGF | STATUSLN+7 |
PREP^XGF | STATUSLN+5 |
SAY^XGF | STATUSLN+6 |
$$FMADD^XLFDT | JTF+4 |
$$FMTE^XLFDT | LOGO+11 |
$$FMTH^XLFDT | GDT+4 |
$$HTE^XLFDT | GDT+4, NOW+1 |
$$REPEAT^XLFSTR | L+2, LOGO+13, LOGO+14 |
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 |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^AUPNPAT - [#9000001] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^%ZOSF("OS" | OS+1, OS+2, OS+3 |
^%ZOSF("TRMRD" | RTRN+2 |
^%ZOSF("UCI" | STATUSLN+3 |
^ACHSAOP - [#9002079] | AOP+1 |
^ACHSDEF - [#9002066] | DF+5 |
^ACHSDEN - [#9002071] | DN+1 |
^ACHSDENR - [#9002072] | AD+1, SUD+1 |
^ACHSERR | ISMGR+1, CLEAN+2, CLEAN+3!, ISMGR+13, ISMGR+16 |
^ACHSF - [#9002080] | DOC+1, PARM+1, TRAN+2, FY+2 |
^AUPNPAT - [#9000001] | HRN+3, RRE+8 |
^AUPNRRE - [#9000005] | RRE+9, RRE+12, RRE+13, RRE+14 |
^AUTTAREA - [#9999999.21] | FC+5 |
^AUTTLOC - [#9999999.06] | ASF+3, FC+3, FC+5, PTLK+4 |
^AUTTSITE(1 | EX+1, EX+2, IM+1, IM+2, OS+3, OS+4 |
^AZOPBPP( | PAWNEE+4, PAWNEE+6 |
^DD( | L+2, ZEROTH+4, ZEROTH+6, ZEROTH+7 |
^DD("DD" | PAWNEE+6 |
^DD("FUNC" - [#.5] | SB+1 |
^DIC(19 - [#19] | HDR+1, HDR+3, PHDR+1, PHDR+5 |
^DIC(19.1 - [#19.1] | ISMGR+4 |
^DIC(4 - [#4] | LOC+1 |
^DIC(9.4 - [#9.4] | H+6, H+7, H+8, H+9, LOGO+4, LOGO+7, LOGO+10, LOGO+11, LOGO+12 |
^DPT - [#2] | PTLK+9, RRE+6, RRE+7, RRE+10, PAWNEE+1 |
^VA(200 - [#200] | ISMGR+5, USR+3 |
^XUTL("XQ" | PHDR+1, PHDR+3 |
Name | Line Occurrences |
---|---|
$$JDT | GDT+4, JTF+4 |
$$LOC | BRPT+4, H+12, LOGO+15, SHDR+2 |
$$LOCK | DIE+3, DIE+5, DIET+3, DIET+5 |
$$OS | EX+1, EX+2, IM+1, IM+2 |
$$PARM | PTLK+2 |
$$RRE | INSURED+4 |
$$USR | BRPT+6 |
BM | BRPT+2 |
FUDT | DATE+8 |
ISMGRHD | ISMGR+11, ISMGR+15 |
LOCK1 | LOCK+5 |
LOCK2 | LOCK+6 |
LOCKMSG | LOCK+6, LOCK1+1 |
LOGO | PHDR+6 |
NOW | BRPT+2 |
PAWNEE | PTLK+5 |
RREX | RRE+6, RRE+7, RRE+8, RRE+9, RRE+10 |
RTRN | LOCK+1, LOCK+2, LOCK2+1 |
SHDR | HDR+4 |
STATUSLN | H+3 |
VIDEO | ISMGR+2, H+4, SHDR+1 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | DIE+1*, DIET+1*, FYSEL+4*, HELP+3*, FY~, FY+3*, FY+4, FY+5*, FY+6, FY+7* , FY+8*, FY+9, FY+11* |
%H | ISMGR+12*, ISMGR+13*, ISMGR+16, ISMGR+19! |
A | DIR~, DIR+4, DIR+8*, DIR+9!, DATE~, DATE+3, DATE+4, DATE+6*, DATE+8, DIC~ , DIC+3, H+8*, H+9, LOGO+1~, LOGO+10*, LOGO+11, LOGO+12, ZEROTH~, ZEROTH+2, ZEROTH+4* , ZEROTH+5, ZEROTH+6, ZEROTH+7 |
A( | DIR+4 |
A("" | DIR+4 |
ACHD | ERPT+3! |
ACHDBDT | ERPT+3! |
ACHDBM | ERPT+3! |
ACHDEDT | ERPT+3! |
ACHDHAT | ERPT+3! |
ACHDIO | ERPT+3! |
ACHDLOC | ERPT+3! |
ACHDPG | ERPT+3! |
ACHDQIO | ERPT+3! |
ACHDRPT | ERPT+3! |
ACHDT1 | ERPT+3! |
ACHDT2 | ERPT+3! |
ACHDT3 | ERPT+3! |
ACHDTIME | ERPT+3! |
ACHDUSR | ERPT+3! |
ACHDX | ERPT+3! |
ACHDY | ERPT+3! |
ACHS | CLOSEALL+1*, CLOSEALL+2*, ERPT+2!, JDT~, JDT+5, JDT+6*, JDT+7 |
>> ACHSA | DF+2, DN+1 |
ACHSBDT | ERPT+2! |
ACHSBM | BM+1*, BM+2*, ERPT+2! |
>> ACHSBPNO | PAWNEE+4*, PAWNEE+5 |
>> ACHSDA | DF+3 |
ACHSDATE | INSURED~, INSURED+1, INSURED+2, INSURED+3, INSURED+4 |
>> ACHSDIEN | DIE+2, DIET+2, DOC+1, TRAN+2 |
ACHSDUZ2 | PTLK+1~, PTLK+2*, PTLK+14 |
ACHSEDT | ERPT+2! |
>> ACHSFYWK( | FYSEL+4 |
ACHSIO | ERPT+2! |
ACHSLOC | BRPT+4*, ERPT+2! |
ACHSPG | BRPT+5*, ERPT+2! |
ACHSQIO | BRPT+1, ERPT+2! |
>> ACHSQUIT | RTRN+1*, RTRN+2* |
ACHSRPT | ERPT+2! |
ACHST1 | ERPT+2! |
ACHST2 | ERPT+2! |
ACHST3 | ERPT+2! |
>> ACHSTIEN | DIET+2, TRAN+2 |
ACHSTIME | BRPT+3*, ERPT+2!, NOW+1* |
ACHSUSR | BRPT+6*, ERPT+2! |
ACHSX | ERPT+2! |
ACHSY | ERPT+2! |
ACHSYAYA | PTLK+14*, PTLK+15! |
>> AUPNLK("INAC" | PTLK+8*, PTLK+11! |
B | DIR~, DIR+5, DIR+9!, DIC~, DIC+4, EBB~, EBB+1, FYSEL+5*, FYSEL+7, ZEROTH~ , ZEROTH+3, ZEROTH+4*, ZEROTH+5, ZEROTH+6, ZEROTH+7 |
C | LOCK+3~, LOCK+4*, LOCK+6, LOCK1+1, LOCKMSG+1*, LOCKMSG+3, ZEROTH~ |
D | DIC~, DIC+2, LOGO+1~, LOGO+2*, LOGO+13, LOGO+14, ZEROTH~, RRE~, RRE+3, RRE+10 , RRE+13, RRE+14 |
>> DA | DIE+2*, DIET+2* |
>> DA(1 | DIE+2*, DIET+2* |
>> DA(2 | DIET+2* |
DFN | INSURED~, INSURED+1, INSURED+2, INSURED+3, INSURED+4, PTLK+9, PTLK+11!, PTLK+12*, PAWNEE+1, PAWNEE+3! , PAWNEE+4*, PAWNEE+7! |
DIC | DIC+1~, DIC+2*, PTLK+8*, PTLK+11!, PAWNEE+1*, PAWNEE+2! |
DIC("A" | DIC+3* |
DIC("B" | DIC+4*, PTLK+9*, PAWNEE+1* |
DIC(0 | DIC+2*, PTLK+8*, PAWNEE+1* |
>> DIE | DIE+2*, DIET+2* |
DIR | DIR+2~ |
DIR("?" | DIR+6* |
DIR("??" | DIR+7* |
DIR("A" | DIR+4* |
DIR("B" | DIR+5* |
DIR(0 | DIR+3* |
DIROUT | DIR+9!, DATE+2! |
DIRUT | DIR+9!, DATE+2! |
DR | DIE~, DIET~ |
DT | DATE+8, GDT+4, JTF+4, PAWNEE+7 |
DTOUT | DIR+9!, DATE+2!, ERPT+2! |
DUOUT | DIR+9!, DATE+2!, DIE+3*, DIE+5*, DIET+3*, DIET+5*, ERPT+2!, PAWNEE+3 |
DUZ | USR+1, USR+2, USR+3 |
DUZ(2 | AD+1, AOP+1, SUD+1, DIE+2, DIET+2, DF+5, DN+1, DOC+1, FYSEL+4, LOC+1 , PARM+1, PTLK+2*, PTLK+4, PTLK+14*, TRAN+2, FY+2 |
E | EBB~, EBB+1, ZEROTH~ |
F | ASF~, ASF+1, ASF+2, ASF+3*, ASF+4, ASF+5, ASF+6, L~, L+2, ZEROTH~ |
FROM | CLEAN~, CLEAN+1*, CLEAN+2*, CLEAN+3 |
G | ZEROTH~ |
H | DIR~, DIR+7, DIR+9!, ZEROTH~ |
I | LOGO+1~, LOGO+4*, LOGO+5, LOGO+7, LOGO+10, LOGO+11, LOGO+12, ZEROTH~, RRE+4~, RRE+11* , RRE+12*, RRE+13, RRE+14 |
IO | BM+2, BRPT+7, ISMGR+15, CLOSEALL+2*, STATUSLN+4 |
IO("S" | BM+2, L+1, RTRN+2 |
IO("ZIO" | STATUSLN+4 |
IO(0 | BM+2, ISMGR+15 |
IO(1 | CLOSEALL+2 |
>> IOBOFF | ISMGR+7 |
>> IOBON | ISMGR+6 |
IOF | ISMGRHD+1, H+2, LOGO+13, SHDR+2 |
>> IOINORM | VIDEO+3 |
IOM | C+1, ISMGR+3 |
>> IOP | BRPT+1* |
>> IORVOFF | ISMGR+7, H+10, SHDR+1 |
>> IORVON | ISMGR+6, H+10 |
IOSL | BM+1, BM+2, ISMGR+15 |
IOST | L+1, RTRN+2 |
>> IZZZNORM | VIDEO+3* |
J | ZEROTH~ |
JDT | GDT~, GDT+1, GDT+2, GDT+3, GDT+4, JTF~, JTF+1, JTF+2, JTF+3, JTF+4 |
>> JOB | STATUSLN+2*, STATUSLN+4 |
K | ZEROTH~ |
KEYNUM | ISMGR+4*, ISMGR+5, ISMGR+19! |
L | HELP~, HRN~, HRN+3, LOCK+3~, LOCK+4*, LOCK+6, LOCK1+1, LOCKMSG+3, LOGO+1~, LOGO+2* , LOGO+13, LOGO+14 |
LINE | ISMGR+3*, ISMGR+19!, ISMGRHD+3 |
M | DATE~, DATE+6, DATE+7!, LOCK~, LOCK+1, LOCK+2, LOCK+5, LOCK2+1, LOCKMSG+3 |
MAX | FYSEL+2~, FYSEL+4*, FYSEL+5, FYSEL+6! |
>> MENTITLE | H+10*, H+12 |
MIN | FYSEL+2~, FYSEL+4*, FYSEL+5, FYSEL+6! |
>> MYLINE | STATUSLN+4*, STATUSLN+6 |
N | AOP~, AOP+1, DATE~, DATE+5, DATE+6, DATE+7!, L~, L+2, LOGO+1~, LOGO+2* , LOGO+13, LOGO+14, PARM~, PARM+1 |
NOW | ISMGR+14*, ISMGR+16, ISMGR+19! |
O | DIR~, DIR+1, DIR+3, DIR+4*, DIR+9!, DIC~, DIC+2, FYSEL+5*, FYSEL+7 |
P | AD~, AD+1, AOP~, AOP+1, SUD~, SUD+1, DF~, DF+5, DN~, DN+1 , DOC~, DOC+1, H+9*, HRN~, HRN+3, LOGO+12*, PARM~, PARM+1, TRAN~, TRAN+2 , RRE~, RRE+2, RRE+6, RRE+7, RRE+8, RRE+9, RRE+10, RRE+12, RRE+13, RRE+14 |
>> P1 | H+9*, H+12, LOGO+12*, LOGO+14 |
>> PBEXDT | PAWNEE+6*, PAWNEE+7 |
>> POP | BRPT+1 |
Q | DIR~, DIR+6, DIR+9! |
R | DIR~, DIR+8, DIR+9!, HELP~, LOGO+1~, LOGO+2*, LOGO+13, LOGO+14 |
S | DIC~, DF~, DF+5, DN~, DN+1, DOC~, DOC+1, TRAN~, TRAN+2 |
TMPDUZ | ISMGR~, ISMGR+5 |
U | AD+1, AOP+1, SUD+1, ASF+3, DF+5, DN+1, DOC+1, EX+1, EX+2, FC+3 , FC+5, H+10, HRN+3, IM+1, IM+2, L+2, LOC+1, LOGO+11, OS+3, OS+4 , PARM+1, PTLK+4, PTLK+9, RTRN+2, TRAN+2, USR+3, HDR+3, PHDR+1, PHDR+5, ZEROTH+4 , ZEROTH+7, RRE+5*, RRE+7, RRE+10, RRE+13, RRE+14, FY+2, FY+9, FY+12, PAWNEE+1 , PAWNEE+4, PAWNEE+6 |
V | H+7*, H+8, LOCK~, LOCK+6, LOCK1+1, LOCK2+1, LOCKMSG+3, LOGO+1~, LOGO+7*, LOGO+8 , LOGO+10, LOGO+14 |
X | C~, C+1, FC+1~, FC+3*, FC+4, FC+5, FMT+4*, FMT+5, FYSEL~, FYSEL+1 , H+6*, H+7, H+8, H+9, HELP+1~, HELP+3*, HELP+4, HELP+5, JDT+5, JDT+6 , RPL~, RPL+1*, RPL+2, RTRN+2, SB~, SB+2, VIDEO+1*, HDR+1*, HDR+2, HDR+3* , PHDR+1*, PHDR+2, SHDR+2, FY+1~, FY+2*, FY+4*, FY+5, FY+6, FY+7, FY+11 , FY+12 |
X1 | JDT~, JDT+1, JDT+2, JDT+3 |
X2 | ERPT+2!, FMT+1*, FMT+6!, JDT+3* |
X3 | ERPT+2!, FMT+2*, FMT+4, FMT+6! |
>> XQY0 | H+10 |
Y | C~, C+1, ISMGR+14, DIR+11, DATE+8*, DATE+9, DIC+6, DIE+6, DIET+6, DF+1~ , DF+2*, DF+3*, DF+4, DF+5, ERPT+2!, FC~, FC+2, FC+3, FC+5, STATUSLN+4 , LOGO+11*, LOGO+14, PTLK+12, RPL~, RPL+1, RTRN+2*, PHDR+3*, PHDR+4, PHDR+5*, PHDR+6 , RRE+4~, RRE+5*, RRE+15*, RREX+1, FY+1~, FY+2*, FY+3, FY+6*, FY+9*, FY+10* , FY+11*, FY+12, PAWNEE+3, PAWNEE+4, PAWNEE+6*, PAWNEE+7 |
Z | DIE~, DIE+1, DIET~, DIET+1, RPL~, RPL+1, ZEROTH+1~, ZEROTH+4* |
>> ZTQUEUED | BM+2, L+1, LOCK2+1, LOCKMSG+2 |
Name | Field # of Occurrence |
---|---|
$T(@L+%^@R | HELP+3 |
$T(ACHS+1 | H+12, LOGO+13, SHDR+2 |