IVMPTRN1 ;ALB/MLI - Clock routine for testing only ; 04-MAY-93
Source file <IVMPTRN1.m>
Package | Total | Call Graph |
---|---|---|
VA FileMan | 2 | NOW^%DTC ^DIE |
Income Verification Match | 1 | $$STATUS^IVMPLOG |
MailMan | 1 | ^XMD |
Registration | 1 | $$LYR^DGMTSCU1 |
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 |
Package | Total | Caller Graph |
---|---|---|
Income Verification Match | 4 | IVMLINS2 IVMPREC4 IVMPTRN IVMUM6 |
Name | Comments | DBIA/ICR reference |
---|---|---|
START | ; start clock remove after v1
|
|
STOP | ; stop clock, mail bulletin remove after v1
|
|
STOPQ | ||
DELMT | ; send delete mt transaction if pt no longer meets IVM criteria
|
|
CLOSE(IVMIY,DFN,IVMCS,IVMCR) | ; Close IVM case record for a patient
; Input: DFN -- Pointer to the patient in file #2 ; IVMIY -- Income year of the closed case ; IVMCS -- Closure source [1=IVM | 2=DHCP] ; IVMCR -- Pointer to the closure reason in file #301.93 |
|
CLOSEQ | ||
PSEUDO | ; strip P from pseudo SSNs before transmitting to IVM
|
FileNo | Call Tags |
---|---|
^IVM(301.5 - [#301.5] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^%ZOSF("UCI" | STOP+8 |
^IVM(301.5 - [#301.5] | CLOSE+9, CLOSE+10 |
^TMP("HLS" | DELMT+8* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | START+1, START+2!, STOP+3, CLOSE+16 |
DA | CLOSE+6~, CLOSE+9*, CLOSE+10, CLOSE+14 |
DFN | DELMT+9, CLOSE~, CLOSE+7, CLOSE+9 |
DIE | CLOSE+6~, CLOSE+17* |
DR | CLOSE+6~, CLOSE+16* |
DUZ | STOP+10 |
EVENTS | CLOSE+6~, CLOSE+14 |
EVENTS("ENROLL" | CLOSE+14 |
>> HLFS | DELMT+7, DELMT+8, PSEUDO+4 |
>> HLQ | DELMT+7 |
>> HLSDT | DELMT+8 |
I | DELMT+5~, DELMT+7* |
>> IVMBEG | START+1*, STOP+5 |
IVMCR | CLOSE~, CLOSE+7, CLOSE+16 |
IVMCS | CLOSE~, CLOSE+7, CLOSE+16 |
>> IVMCT | DELMT+8 |
>> IVMDELMT | CLOSE+8* |
IVMEND | STOP+3*, STOP+6, STOPQ! |
IVMGBEG | STOPQ! |
IVMGTOT | STOP+2, STOP+7, STOPQ! |
IVMIY | DELMT+5~, DELMT+6*, DELMT+9, CLOSE~, CLOSE+7, CLOSE+9 |
>> IVMMTDT | DELMT+6 |
IVMPID | PSEUDO+3, PSEUDO+5!* |
IVMPID(1 | PSEUDO+3, PSEUDO+6* |
IVMTEXT | STOPQ+1! |
IVMTEXT(1 | STOP+4* |
IVMTEXT(2 | STOP+4* |
IVMTEXT(3 | STOP+5* |
IVMTEXT(4 | STOP+6* |
IVMTEXT(5 | STOP+7* |
STATUS | CLOSE+6~, CLOSE+13*, CLOSE+14*, CLOSE+16 |
X | STOP+1~, DELMT+5~, DELMT+7*, DELMT+8, CLOSE+6~, PSEUDO+2~, PSEUDO+3*, PSEUDO+4*, PSEUDO+5, PSEUDO+6 |
XMDUZ | STOP+10*, STOPQ+1! |
XMSUB | STOP+9*, STOPQ+1! |
XMTEXT | STOP+9*, STOPQ+1! |
XMY | STOPQ+1! |
XMY( | STOP+10* |
Y | STOP+1~, CLOSE+6~ |