GMPLCLNP ;ISP/TC - Problem File Cleanup Routine ;01/14/16 13:41
Source file <GMPLCLNP.m>
Package | Total | Call Graph |
---|---|---|
Kernel | 3 | ^%ZTLOAD ($$FMTE,$$NOW)^XLFDT MES^XPDUTL |
Problem List | 3 | (BLDCLMSG,BLDCLRPT,BLDERMSG,BLDERRPT,BLDLEMSG,BLDNEMSG,BLDRPMSG)^GMPLCLN $$GETDX^GMPLUTL $$NOS^GMPLX |
VA FileMan | 2 | (FILE,UPDATE)^DIE $$GET1^DIQ |
DRG Grouper | 1 | ($$CODEC,$$CODECS,$$CODEN,$$SAB)^ICDEX |
Lexicon Utility | 1 | $$GETSYN^LEXTRAN1 |
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 |
---|---|---|
Problem List | 2 | GMPL GENERATE DIAG RPTS GMPLY40 |
Kernel | 1 | ^DIC(19 |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ; Main entry point to task off SCT error scan & cleanup
|
|
EN1 | ; Main entry point to task off incorrect mapping scan & cleanup
|
|
SCANSCT | ; Scan Problem file for SCT in Diagnosis field errors
|
|
CLNSCTE | ; Clean up erroneous PL entries in ^TMP("GMPLSCT")
|
|
FILEMT(GMPDA,GMPICD,GMPDLM) | ; File the associating Mapping Target codes
|
|
CLNAUD(GMPLDLM,GMPLDA,GMPLDIEN) | ; Cleanup audit history for Diagnosis field
|
|
CNVTFMDT(GMPLINVD) | ; Convert an inverted date into FileMan format
|
|
SCANVCDE | ; Scan Problem file for incorrect mapping (SCT 428283002, ICD-9 V15.89)
|
|
CLNVCDE | ; Clean up erroneous PL entries in ^TMP("GMPLVCDE")
|
Name | Field # of Occurrence |
---|---|
^%ZTLOAD | EN+6, EN1+6 |
FILE^DIE | CLNSCTE+27, CLNSCTE+28, FILEMT+8, CLNAUD+12, CLNVCDE+11 |
UPDATE^DIE | FILEMT+19, CLNVCDE+25 |
$$GET1^DIQ | SCANSCT+12, SCANVCDE+11 |
BLDCLMSG^GMPLCLN | CLNSCTE+49, CLNVCDE+35 |
BLDCLRPT^GMPLCLN | CLNSCTE+48 |
BLDERMSG^GMPLCLN | SCANSCT+17 |
BLDERRPT^GMPLCLN | SCANSCT+16 |
BLDLEMSG^GMPLCLN | CLNSCTE+40, CLNVCDE+29 |
BLDNEMSG^GMPLCLN | SCANSCT+24, SCANVCDE+23 |
BLDRPMSG^GMPLCLN | SCANVCDE+16 |
$$GETDX^GMPLUTL | CLNSCTE+14 |
$$NOS^GMPLX | FILEMT+12 |
$$CODEC^ICDEX | SCANSCT+8, CLNAUD+9, SCANVCDE+9 |
$$CODECS^ICDEX | FILEMT+2 |
$$CODEN^ICDEX | CLNSCTE+15, CLNVCDE+22 |
$$SAB^ICDEX | FILEMT+2 |
$$GETSYN^LEXTRAN1 | CLNSCTE+17 |
$$FMTE^XLFDT | SCANSCT+14, CLNSCTE+32, FILEMT+15 |
$$NOW^XLFDT | SCANSCT+5, CLNSCTE+4, SCANVCDE+5, CLNVCDE+19 |
MES^XPDUTL | EN+10, EN1+10 |
FileNo | Call Tags |
---|---|
^AUPNPROB - [#9000011] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^AUPNPROB - [#9000011] | SCANSCT+9, CLNSCTE+8, CLNSCTE+30, FILEMT+4, SCANVCDE+7, CLNVCDE+6, CLNVCDE+12 |
^AUPNPROB("ASCT" | SCANVCDE+6 |
^AUPNPROB("B" | SCANSCT+6, SCANSCT+7 |
^DPT - [#2] | SCANVCDE+10 |
^GMPL(125.8 - [#125.8] | CLNAUD+3, CLNAUD+4, CLNAUD+6, CLNAUD+7 |
^TMP("GMPLCLER" | CLNSCTE+3!, CLNSCTE+10*, CLNSCTE+34 |
^TMP("GMPLCLNP" | CLNSCTE+3!, CLNSCTE+32* |
^TMP("GMPLLKER" | CLNVCDE+4!, CLNVCDE+8*, CLNVCDE+27 |
^TMP("GMPLSCT" | SCANSCT+4!, SCANSCT+14*, CLNSCTE+6, CLNSCTE+7, CLNSCTE+12, CLNSCTE+33! |
^TMP("GMPLVCDE" | SCANVCDE+4!, SCANVCDE+14*, CLNVCDE+5, CLNVCDE+15, CLNVCDE+26! |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
GMPCNT | CLNSCTE+2~, CLNSCTE+4*, CLNSCTE+9*, CLNSCTE+10, CLNSCTE+34, CLNSCTE+40, CLNVCDE+1~, CLNVCDE+2*, CLNVCDE+7*, CLNVCDE+8 , CLNVCDE+27, CLNVCDE+29 |
GMPCODE | FILEMT+12~, FILEMT+13*, FILEMT+14, FILEMT+16 |
GMPCSYS | FILEMT+1~, FILEMT+2*, FILEMT+12, FILEMT+17 |
GMPDA | FILEMT~, FILEMT+4, FILEMT+7, FILEMT+16, FILEMT+17, FILEMT+18 |
GMPDLM | FILEMT~, FILEMT+2, FILEMT+15 |
GMPDT | FILEMT+12~, FILEMT+15*, FILEMT+18 |
GMPFDA | FILEMT+1~, FILEMT+12~, CLNAUD+10~, CLNVCDE+1~ |
GMPFDA( | FILEMT+16*, FILEMT+17*, FILEMT+18*, CLNAUD+11*, CLNVCDE+17*, CLNVCDE+18*, CLNVCDE+19*, CLNVCDE+20*, CLNVCDE+21*, CLNVCDE+22* , CLNVCDE+23*, CLNVCDE+24* |
GMPI | FILEMT+1~, FILEMT+11*, FILEMT+13 |
GMPICD | FILEMT~, FILEMT+2, FILEMT+10, FILEMT+13 |
GMPJ | FILEMT+1~, FILEMT+6*, FILEMT+7 |
GMPL0 | SCANSCT+2~, SCANSCT+9*, SCANSCT+10, SCANSCT+11, CLNAUD+1~, CLNAUD+7*, CLNAUD+8, SCANVCDE+1~, SCANVCDE+7*, SCANVCDE+8 , SCANVCDE+10 |
GMPL1 | SCANSCT+2~, SCANSCT+9*, SCANVCDE+1~, SCANVCDE+7*, SCANVCDE+12 |
GMPLAIEN | CLNAUD+1~, CLNAUD+2*, CLNAUD+6*, CLNAUD+7, CLNAUD+11 |
GMPLDA | SCANSCT+1~, SCANSCT+3*, SCANSCT+7*, SCANSCT+9, SCANSCT+12, SCANSCT+14, CLNSCTE+1~, CLNSCTE+4*, CLNSCTE+7*, CLNSCTE+8 , CLNSCTE+10, CLNSCTE+12, CLNSCTE+16, CLNSCTE+21, CLNSCTE+29, CLNSCTE+30, CLNSCTE+32, CLNAUD~, CLNAUD+2*, CLNAUD+3* , CLNAUD+4, CLNAUD+6, SCANVCDE+1~, SCANVCDE+3*, SCANVCDE+6*, SCANVCDE+7, SCANVCDE+11, SCANVCDE+14, CLNVCDE+1~, CLNVCDE+2* , CLNVCDE+5*, CLNVCDE+6, CLNVCDE+8, CLNVCDE+10, CLNVCDE+12, CLNVCDE+15, CLNVCDE+17 |
GMPLDIAG | SCANSCT+1~, SCANSCT+3*, SCANSCT+6*, SCANSCT+7, SCANSCT+8, SCANSCT+14 |
GMPLDIEN | CLNSCTE+2~, CLNSCTE+15*, CLNSCTE+29, CLNAUD~, CLNAUD+11, SCANVCDE+1~, SCANVCDE+8*, SCANVCDE+9, SCANVCDE+14, CLNVCDE+1~ , CLNVCDE+16*, CLNVCDE+21 |
GMPLDLM | SCANSCT+1~, SCANSCT+3*, SCANSCT+10*, SCANSCT+14, CLNSCTE+1~, CLNSCTE+4*, CLNSCTE+6*, CLNSCTE+7, CLNSCTE+12, CLNSCTE+14 , CLNSCTE+16, CLNSCTE+17, CLNSCTE+29, CLNSCTE+32, CLNAUD~, CLNAUD+5 |
GMPLFDA | CLNSCTE+1~, FILEMT+1~, CLNVCDE+1~ |
GMPLFDA( | CLNSCTE+23*, FILEMT+7* |
GMPLFDA(9000011 | CLNSCTE+22*, CLNSCTE+25*, CLNSCTE+26*, CLNVCDE+10* |
GMPLFDA1 | CLNSCTE+2~ |
GMPLFDA1(9000011 | CLNSCTE+24* |
GMPLFLDN | CLNAUD+1~, CLNAUD+8*, CLNAUD+9 |
GMPLFMDT | CNVTFMDT+1~, CNVTFMDT+2*, CNVTFMDT+3*, CNVTFMDT+4 |
GMPLFROM | SCANSCT+2~, SCANSCT+21*, SCANSCT+24, CLNSCTE+1~, CLNSCTE+5*, CLNSCTE+40, CLNSCTE+49, SCANVCDE+2~, SCANVCDE+20*, SCANVCDE+23 , CLNVCDE+1~, CLNVCDE+3*, CLNVCDE+29, CLNVCDE+35 |
GMPLICD | CLNSCTE+1~, CLNSCTE+14*, CLNSCTE+15, CLNSCTE+16, CLNSCTE+22, CLNSCTE+32, SCANVCDE+1~, SCANVCDE+9* |
GMPLIEN | CLNSCTE+2~, CLNSCTE+21*, CLNSCTE+22, CLNSCTE+24, CLNSCTE+25, CLNSCTE+26 |
GMPLINVD | CLNAUD+1~, CLNAUD+2*, CLNAUD+4*, CLNAUD+5, CLNAUD+6, CNVTFMDT~, CNVTFMDT+2 |
GMPLMSG | SCANSCT+2~, SCANSCT+24, CLNSCTE+35~, CLNSCTE+40, SCANVCDE+2~, SCANVCDE+23 |
GMPLMSG(1 | SCANSCT+22*, CLNSCTE+37*, SCANVCDE+21* |
GMPLMSG(2 | SCANSCT+23*, CLNSCTE+38*, SCANVCDE+22* |
GMPLMSG(3 | CLNSCTE+39* |
GMPLNARR | SCANSCT+1~, CLNSCTE+1~, CLNSCTE+18*, CLNSCTE+20*, CLNSCTE+23, CLNSCTE+32, SCANVCDE+1~, SCANVCDE+11*, SCANVCDE+14 |
GMPLNCLN | CLNSCTE+1~, CLNSCTE+4*, CLNSCTE+31*, CLNSCTE+41, CLNSCTE+48, CLNSCTE+49, CLNVCDE+1~, CLNVCDE+2*, CLNVCDE+13*, CLNVCDE+30 , CLNVCDE+35 |
GMPLNERR | SCANSCT+1~, SCANSCT+3*, SCANSCT+13*, SCANSCT+15, SCANSCT+16, SCANSCT+17, SCANVCDE+1~, SCANVCDE+3*, SCANVCDE+13*, SCANVCDE+15 , SCANVCDE+16 |
GMPLNIEN | SCANSCT+1~, SCANSCT+11*, SCANSCT+14, CLNSCTE+2~, CLNSCTE+13*, CLNSCTE+23 |
GMPLNODE | CLNSCTE+35~, CLNSCTE+36*, CLNSCTE+40, CLNVCDE+28~*, CLNVCDE+29 |
GMPLNVAL | CLNAUD+1~, CLNAUD+8*, CLNAUD+9 |
GMPLPAT | SCANVCDE+1~, SCANVCDE+10*, SCANVCDE+14 |
GMPLPIEN | SCANSCT+2~ |
GMPLPROB | SCANSCT+1~, SCANSCT+12*, SCANSCT+14, CLNSCTE+2~, CLNSCTE+18*, CLNSCTE+20*, CLNSCTE+24 |
GMPLPROV | SCANVCDE+1~, SCANVCDE+12*, SCANVCDE+14, CLNVCDE+1~, CLNVCDE+16*, CLNVCDE+20, CLNVCDE+24 |
GMPLREC | CLNSCTE+2~, CLNSCTE+12*, CLNSCTE+13, CLNVCDE+1~, CLNVCDE+15*, CLNVCDE+16 |
GMPLRNTM | SCANSCT+2~, SCANSCT+5*, SCANSCT+16, SCANSCT+24, CLNSCTE+2~, CLNSCTE+4*, CLNSCTE+48, SCANVCDE+1~, SCANVCDE+5*, SCANVCDE+16 , SCANVCDE+23 |
GMPLSCTC | CLNSCTE+1~, CLNSCTE+13*, CLNSCTE+14, CLNSCTE+17, CLNSCTE+25, CLNSCTE+32, SCANVCDE+1~, SCANVCDE+5*, SCANVCDE+6 |
GMPLSCTD | CLNSCTE+1~, CLNSCTE+18*, CLNSCTE+20*, CLNSCTE+26, CLNSCTE+32 |
GMPLSUB | SCANSCT+2~, SCANSCT+20*, SCANSCT+24, SCANVCDE+2~, SCANVCDE+19*, SCANVCDE+23 |
GMPLTEXT | EN+2~, EN+10, EN1+2~, EN1+10 |
GMPLTEXT(1 | EN+7*, EN1+7* |
GMPLTEXT(2 | EN+8*, EN1+8* |
GMPLTEXT(3 | EN+9*, EN1+9* |
GMPMSG | CLNSCTE+42~, CLNSCTE+49, CLNVCDE+31~, CLNVCDE+35 |
GMPMSG(1 | CLNSCTE+44*, CLNVCDE+33* |
GMPMSG(2 | CLNSCTE+45*, CLNVCDE+34* |
GMPMSG(3 | CLNSCTE+46* |
GMPMSG(4 | CLNSCTE+47* |
GMPN | FILEMT+1~, FILEMT+10*, FILEMT+11 |
GMPNCNT | FILEMT+1~, FILEMT+4*, FILEMT+5, FILEMT+6 |
GMPNOS | FILEMT+12~*, FILEMT+14 |
GMPQT | CLNAUD+1~, CLNAUD+2*, CLNAUD+6, CLNAUD+11* |
GMPSUB | CLNSCTE+42~, CLNSCTE+43*, CLNSCTE+49, CLNVCDE+31~, CLNVCDE+32*, CLNVCDE+35 |
GMPSYN | CLNSCTE+2~ |
GMPSYN("P" | CLNSCTE+18 |
U | SCANSCT+8, SCANSCT+10, SCANSCT+11, SCANSCT+14, CLNSCTE+13, CLNSCTE+17, CLNSCTE+18, CLNSCTE+32, FILEMT+4, FILEMT+14 , CLNAUD+8, CLNAUD+9, SCANVCDE+8, SCANVCDE+10, SCANVCDE+12, SCANVCDE+14, CLNVCDE+16 |
ZTDESC | EN+2~, EN+4*, EN1+2~, EN1+4* |
ZTDTH | EN+2~, EN+5*, EN1+2~, EN1+5* |
ZTIO | EN+2~, EN+5*, EN1+2~, EN1+5* |
ZTRTN | EN+2~, EN+3*, EN1+2~, EN1+3* |
ZTSK | EN+2~, EN+9, EN1+2~, EN1+9 |