PSOCPIB3 ;BIR/EJW-Clean up to bill unbilled NON-SERVICE CONNECTED copays ;12/12/02
Source file <PSOCPIB3.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
MAIL2 | ; SEND NAME INFO FOR USE BY AAC
|
|
EN | ;
|
|
END | ;
|
|
RPT | ;
|
|
TITLE | ;
|
|
PROCESS | ;
|
|
ACCUM | ; ACCUMULATE TOTALS AND SEE IF PATIENT MET ANNUAL CAP
|
|
BILL | ;
; IF NO IB NUMBER FOR THIS FILL, SET UP VARIABLES AND CALL CP^PSOCP. IF THERE IS AN IB NUMBER AFTER THIS CALL, COUNT IT FOR SUMMARY MAIL MSG |
|
DVC | ||
QUEUE | ||
START | ;
|
|
FULL | ;
|
|
DONE | ;
|
|
;
|
||
PRTSSN | ;
|
|
CHKTOT | ; SEE IF BILLING THIS FILL WOULD GO OVER CAP
|
|
GETDATE | ; GET DATE/TIME OF WHEN BACKGROUND JOB SHOULD BE RUN
|
Name | Field # of Occurrence |
---|---|
DD^%DT | EN+4, MAIL+1 |
C^%DTC | EN+6 |
NOW^%DTC | EN+4, MAIL+1 |
^%ZIS | DVC |
^%ZISC | DONE+2 |
^%ZTLOAD | PSOCPIB3+15, QUEUE |
^DIR | TITLE+1, END+1 |
$$RXST^IBARXEU | EN+22 |
CP^PSOCP | BILL+15, BILL+24 |
SITE^PSOCPBA2 | BILL+14, BILL+23 |
CHKLOG^PSOCPBAK | EN+13 |
XTYPE^PSOCPBAK | EN+15 |
GETDATE^PSOCPIB4 | GETDATE+2 |
DEM^VADPT | MAIL2+9 |
PID^VADPT | PRTSSN+2 |
$$DT^XLFDT | EN+5 |
^XMD | MAIL+14, MAIL2+12 |
BMES^XPDUTL | PSOCPIB3+7, PSOCPIB3+10, PSOCPIB3+11, PSOCPIB3+14 |
MES^XPDUTL | PSOCPIB3+12 |
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 |
|
Routine Call |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DD("DD" | START+13, TITLE+5 |
^DIC(4 - [#4] | MAIL2+3 |
^DPT - [#2] | EN+10, BILL+17, BILL+26 |
^IBAM(354.7 | CHKTOT+5 |
^PS(59 - [#59] | PRTSSN+4 |
^PSRX - [#52] | EN+10, EN+17, EN+18, EN+19, EN+20, EN+21, BILL+8, BILL+13, BILL+16, BILL+18 , BILL+22, BILL+25, BILL+27, PRTSSN+4 |
^PSRX("AL" | EN+9, EN+16 |
^PSRX("B" | PRTSSN+3 |
^XMB(1 - [#4.3] | MAIL2+3 |
^XTMP("PSOCPBAK" | EN+7, EN+11, EN+12, EN+15*, EN+23*, EN+24*, PROCESS+1, BILL+2, BILL+3, BILL+6 , BILL+7 |
^XTMP("PSOCPIB3" | PSOCPIB3+6, PSOCPIB3+8, EN+1, EN+6*, PROCESS+4, MAIL2+8, BILL+20*, BILL+29*, RPT+1, RPT+3 , START+6, START+8, START+10, ACCUM+4, ACCUM+5*, CHKTOT+3, CHKTOT+4* |
^XUSEC("PSO COPAY" | MAIL+4 |
Name | Line Occurrences |
---|---|
ACCUM | BILL+21, BILL+30 |
BILL | PROCESS+1 |
CHKTOT | BILL+10 |
DONE | DVC, QUEUE |
END | START+15 |
FULL | START+11 |
GETDATE | PSOCPIB3+13 |
PROCESS+2 | |
MAIL2 | PROCESS+3 |
PROCESS | EN+7 |
PRTSSN | START+11 |
TITLE | START+4, FULL+1 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> % | EN+4, MAIL+1 |
%ZIS | DVC!* |
%ZSI | QUEUE! |
>> BADDT | EN+12*, EN+13, EN+14, EN+23 |
DFN | MAIL2+9*, PRTSSN+1~, PRTSSN+2* |
DIFROM | MAIL+14~, MAIL2+12~ |
DIR | TITLE+1!, END+1!, DONE+1! |
DIR("A" | END+1* |
DIR(0 | TITLE+1*, END+1* |
DIRUT | DONE+1! |
DT | EN+5*, EN+6, TITLE+5 |
DTOUT | DONE+1! |
DUOUT | DONE+1! |
DUZ | MAIL+2, MAIL2+4 |
IO | START+1 |
IO("Q" | QUEUE, DONE+1! |
IOF | TITLE+3, END+3 |
IOP | DVC!, DONE+1! |
IOSL | START+3, FULL+1 |
IOST | START+2 |
MJT | TITLE+6*, DONE+1! |
POP | DVC!, DONE+1! |
>> PSOBILL | BILL+16*, BILL+25* |
>> PSOCAP( | BILL+11, CHKTOT+8*, CHKTOT+9* |
>> PSOCAP(302 | BILL+4* |
>> PSOCAP(303 | BILL+5* |
PSOCNT | EN+2~, EN+3*, MAIL+8, MAIL+9, MAIL+13, MAIL2+2*, MAIL2+10*, BILL+19*, BILL+28* |
>> PSOCPUN | BILL+8*, BILL+9, ACCUM+2*, ACCUM+5, CHKTOT+8, CHKTOT+9 |
>> PSOCXPDA | MAIL+4* |
>> PSODFN | EN+10*, EN+11, EN+12, EN+15, EN+22, EN+23, EN+24, MAIL2+8*, MAIL2+9, BILL+2* , BILL+3, BILL+6, BILL+7, BILL+17, BILL+20, BILL+26, BILL+29, START+6*, START+8, START+10 , PRTSSN+2, ACCUM+4, ACCUM+5, CHKTOT+3, CHKTOT+4, CHKTOT+5 |
>> PSODIV | PRTSSN+4*, PRTSSN+5 |
PSODT | EN+2~, EN+8*, EN+9*, EN+14, EN+16 |
>> PSODV | START+2*, TITLE+1, END+1, END+2 |
PSOEND | EN+2~, MAIL+1*, MAIL+7 |
>> PSOFILL | START+8*, START+10, START+12 |
>> PSOINST | MAIL2+3*, MAIL2+7, MAIL2+10, MAIL2+11 |
>> PSOJ | PROCESS+1*, BILL+2, BILL+3, BILL+6, BILL+7, START+5*, START+6*, START+8, START+10 |
>> PSOLOG | CHKTOT+5*, CHKTOT+6, CHKTOT+7 |
>> PSONAM | MAIL2+8*, MAIL2+10, BILL+17*, BILL+20, BILL+26*, BILL+29, START+6*, START+8, START+10, START+11 |
>> PSOOUT | START+2*, START+11, FULL+1, TITLE+1*, END+1 |
PSOPGCT | START+3*, TITLE+1, TITLE+5, TITLE+9*, DONE+1! |
PSOPGLN | START+3*, DONE+1! |
>> PSOQUES | GETDATE+1* |
>> PSOREL | EN+17*, EN+22, EN+24, BILL+7*, BILL+11, BILL+20, BILL+29, ACCUM+1, CHKTOT+1 |
>> PSORXP | BILL+18*, BILL+20, BILL+27*, BILL+29, PRTSSN+3*, PRTSSN+4 |
>> PSOSCMX | EN+15 |
>> PSOSQ | CHKTOT+5* |
PSOSTART | EN+2~, EN+4*, MAIL+7 |
>> PSOSVUN | BILL+9*, ACCUM+2 |
PSOTEXT | EN+2~, MAIL2+1!, MAIL2+11 |
PSOTEXT( | MAIL2+10* |
PSOTEXT(1 | MAIL+6*, MAIL2+11* |
PSOTEXT(2 | MAIL+7* |
PSOTEXT(3 | MAIL+8*, MAIL+13* |
PSOTEXT(4 | MAIL+9* |
PSOTEXT(5 | MAIL+10* |
PSOTEXT(6 | MAIL+11* |
PSOTEXT(7 | MAIL+12* |
>> PSOTOT | ACCUM+4*, ACCUM+5, CHKTOT+3*, CHKTOT+4, CHKTOT+7*, CHKTOT+8, CHKTOT+9 |
>> PSOXIN | EN+22* |
>> PSOYR | ACCUM+1*, ACCUM+3, ACCUM+4, ACCUM+5, CHKTOT+1*, CHKTOT+2, CHKTOT+3, CHKTOT+4, CHKTOT+5, CHKTOT+8 , CHKTOT+9 |
RXP | EN+2~, EN+9*, EN+10, EN+12, EN+16, EN+17, EN+18, EN+19, EN+20, EN+21 , EN+23, EN+24, BILL+6*, BILL+7, BILL+8, BILL+13, BILL+16, BILL+18, BILL+22, BILL+25 , BILL+27, START+8*, START+10, START+12, PRTSSN+3 |
>> VA("BID" | MAIL2+10, PRTSSN+5 |
X | EN+6, DONE+1! |
>> X1 | EN+6* |
>> X2 | EN+6* |
XMDUZ | MAIL+3*, MAIL+14!, MAIL2+7*, MAIL2+12! |
XMSUB | MAIL+3*, MAIL+14!, MAIL2+7*, MAIL2+12! |
XMTEXT | MAIL+14*!, MAIL2+12*! |
XMY | MAIL2+1! |
XMY( | MAIL+2*, MAIL+4*, MAIL2+4* |
XMY("" | MAIL+5 |
XMY("CARROLL.DAN@DOMAIN.NAME" | MAIL2+6* |
XMY("WHITE.ELAINE@DOMAIN.NAME" | MAIL2+5* |
XX | START+9~, START+10*, START+13 |
Y | EN+4*, MAIL+1*, START+13*, START+14, TITLE+1, TITLE+5*, DONE+1! |
YY | EN+2~, EN+16*, EN+17, EN+18, EN+19, EN+20, EN+21, EN+24, BILL+6*, BILL+7 , BILL+12, BILL+20, BILL+22, BILL+25, BILL+29 |
ZTDESC | PSOCPIB3+15*!, QUEUE* |
ZTDTH | PSOCPIB3+4*, PSOCPIB3+5*, PSOCPIB3+7, PSOCPIB3+9, PSOCPIB3+15! |
ZTIO | PSOCPIB3+15*! |
>> ZTQUEUED | PSOCPIB3+5, PSOCPIB3+16, EN+1, PROCESS+5, DONE+2 |
>> ZTREQ | EN+1*, PROCESS+5*, DONE+2* |
ZTRTN | PSOCPIB3+15*!, QUEUE* |
>> ZTSK | PSOCPIB3+16 |