GMPLSAVE ; ISL/MKB,KER,JER,TC,PWC -- Save Problem List data ; Dec 11, 2024@14:00
Source file <GMPLSAVE.m>
| Package | Total | Call Graph |
|---|---|---|
| VA FileMan | 4 | (,DD)^%DT (FILE,UPDATE)^DIE (,IX1)^DIK $$GET1^DIQ |
| Kernel | 3 | ($$DT,$$FMTE,$$HTFM,$$NOW)^XLFDT EN1^XQOR USERINFO^XUSRB2 |
| Problem List | 3 | SET^GMPLSPECAUTH ($$EXTDT,$$NOS,$$PROVNARR,AUDIT,DTMOD)^GMPLX $$WRAP^GMPLX1 |
| Lexicon Utility | 2 | ($$GETDES,$$GETSYN)^LEXTRAN1 $$IMPDATE^LEXU |
| MailMan | 2 | KILL^XM ^XMB |
| DRG Grouper | 1 | ($$CODEC,$$CODECS,$$CS,$$CSI,$$SAB)^ICDEX |
| Registration | 1 | $$SITE^VASITE |
| 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 | 5 | GMPL EDIT SAVE GMPL1 GMPLEDIT GMPLUTL GMPLUTL2 |
| Order Entry Results Reporting | 2 | ORQQPL1 ORQQPL2 |
| Enterprise Health Management Platform | 1 | HMPWBPL |
| Kernel | 1 | ^ORD(101 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; Save Changes made to Existing Problem
|
|
| NOTES | ; Save Changes to Notes
|
|
| EXIT | ; Quit Saving Changes
|
|
| REFORM | ; Audit Entry that has been Reformulated
|
|
| REACTV | ; Audit Entry that has been Reactivated
|
|
| NEW | ; Save Collected Values in new Problem Entry
; Output DA (left defined) |
|
| NEWPROB(ICD,DFN) | ; Creates New Problem Entry in file #9000011
|
|
| NEWNOTE | ; Creates New Note Entries for Problem
; Requires GMPIFN Pointer to Problem ; GMPROV Current Provider ; GMPVAMC Facility |
|
| NN1 | ; Get New Note
|
|
| NNQ | ; Quit Getting New Notes
|
|
| NEXTNMBR(DFN,VAMC) | ; Returns Next Available Problem Number
|
|
| NTRTBULL(GMPY,GMPTERM,GMPSCT,GMPSRCH) | ; Send NTRT Request bulletin to NTRT mailgroup
|
|
| COEXPRS(GMPDA,GMPICD) | ; File multiple ICDs
|
|
| SPRCICD(GMPICD) | ; Is ICD string sparce (i.e., called from SDS API w/order > 2)?
|
| Name | Field # of Occurrence |
|---|---|
| ^%DT | NOTES+3 |
| DD^%DT | COEXPRS+20 |
| FILE^DIE | EN+56, COEXPRS+12 |
| UPDATE^DIE | COEXPRS+24 |
| ^DIK | NOTES+15 |
| IX1^DIK | NEW+67 |
| $$GET1^DIQ | NTRTBULL+12 |
| SET^GMPLSPECAUTH | EN+58, NEW+72 |
| $$EXTDT^GMPLX | EN+9, NEW+12 |
| $$NOS^GMPLX | EN+4, EN+5, EN+8, EN+27, EN+46, EN+60, NEW+8, NEW+9, NEW+53, NEW+70 , COEXPRS+16, SPRCICD+2 |
| $$PROVNARR^GMPLX | EN+36, NEW+16 |
| AUDIT^GMPLX | EN+42, EN+55, NOTES+12, REFORM+3, REACTV+3, COEXPRS+34, COEXPRS+40 |
| DTMOD^GMPLX | EXIT+1 |
| $$WRAP^GMPLX1 | NTRTBULL+9 |
| $$CODEC^ICDEX | NEW+10 |
| $$CODECS^ICDEX | EN+10, NEW+13, COEXPRS+3 |
| $$CS^ICDEX | NEW+6 |
| $$CSI^ICDEX | EN+10, NEW+6 |
| $$SAB^ICDEX | EN+10, NEW+7, COEXPRS+3 |
| $$GETDES^LEXTRAN1 | EN+34, NEW+39 |
| $$GETSYN^LEXTRAN1 | EN+19, NEW+25 |
| $$IMPDATE^LEXU | EN+3, NEW+4 |
| $$SITE^VASITE | NTRTBULL+1 |
| $$DT^XLFDT | NEW+17 |
| $$FMTE^XLFDT | NTRTBULL+13 |
| $$HTFM^XLFDT | EN+37 |
| $$NOW^XLFDT | EN+3, NEW+4, NTRTBULL+13, COEXPRS+1 |
| KILL^XM | NTRTBULL+17 |
| ^XMB | NTRTBULL+17 |
| EN1^XQOR | NEW+74 |
| USERINFO^XUSRB2 | NTRTBULL+5 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| ^AUPNPROB - [#9000011] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNPROB - [#9000011] | NOTES+4, NOTES+5*, NOTES+7*, NOTES+8*, REFORM+2, REACTV+2, NEW+44, NEW+45*, NEW+50*, NEW+55* , NEW+59*, NEW+63*, NEWPROB+7, NEWPROB+8*, NEWNOTE+5, NEWNOTE+6, NEWNOTE+7, NEWNOTE+8, NEWNOTE+9, NEWNOTE+10* , NEWNOTE+11*, NN1+1, NN1+2, NN1+3, NN1+6*, NN1+7*, NN1+9*, NNQ+1, COEXPRS+5, COEXPRS+7 , COEXPRS+18, COEXPRS+30, COEXPRS+37, COEXPRS+38 |
| ^AUPNPROB("AA" | NEXTNMBR+1, NEXTNMBR+2 |
| ^AUPNPROB("AC" | NEWPROB+9* |
| ^AUPNPROB("B" | NEWPROB+9* |
| ^AUPNPROB(0 | NEWPROB+2, NEWPROB+5, NEWPROB+10* |
| ^ORD(101 - [#101] | NEW+74 |
| ^VA(200 - [#200] | NTRTBULL+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %DT | EN+1~, NOTES+3* |
| APCDALVR | NEW+2~, NEW+67* |
| APCDLOOK | NEW+2~, NEW+67* |
| AUDITED | EN+1~, EN+37*, EN+43*, EN+44*, EN+54 |
| CHANGE | COEXPRS+29~, COEXPRS+32*, COEXPRS+33*, COEXPRS+34, COEXPRS+38~, COEXPRS+39*, COEXPRS+40 |
| CHNGE | EN+1~, EN+41*, EN+42, EN+54*, EN+55, NOTES+9*, NOTES+11*, NOTES+12, REFORM+1*, REFORM+3 , REACTV+1*, REACTV+3 |
| CODSYS | COEXPRS+1~, COEXPRS+3*, COEXPRS+16, COEXPRS+22 |
| CSAB | NEW+2~, NEW+7*, NEW+8, NEW+9, NEW+13 |
| CSDT | NEW+2~, NEW+5*, NEW+6, NEW+7, NEW+8, NEW+9, NEW+12, NEW+13 |
| CSID | NEW+2~, NEW+6*, NEW+7 |
| DA | EN+1~, NOTES+15*, NEW+41*, NEW+44, NEW+45, NEW+50, NEW+55, NEW+59, NEW+63, NEW+65 , NEW+68, NEW+72, NEW+73, NEWPROB+1~, NEWPROB+8*, NEWPROB+9, NEWPROB+10, NEWPROB+11 |
| DA(1 | NOTES+15* |
| DA(2 | NOTES+15* |
| DATA | NEW+2~, NEW+44*, NEW+45, NEW+47*, NEW+49*, NEW+50, NEW+54*, NEW+55, NEW+58*, NEW+59 , NEW+62*, NEW+63 |
| DFN | NEW+73~*, NEWPROB~, NEWPROB+8, NEWPROB+9, NEXTNMBR~, NEXTNMBR+1, NEXTNMBR+2 |
| DIE | EN+1~ |
| DIK | EN+1~, NOTES+14*, NEW+2~, NEW+67* |
| DOAUDIT | EN+49~*, EN+50*, EN+55 |
| DR | EN+1~ |
| DT | EN+9, EN+10, EN+19, NEW+5, NEW+25, NEW+44, NN1+6, COEXPRS+3, COEXPRS+20 |
| DUZ | EN+41, EN+54, NOTES+9, NOTES+11, REFORM+1, REACTV+1, NTRTBULL+3, NTRTBULL+12, COEXPRS+32, COEXPRS+33 , COEXPRS+39 |
| FAC | EN+1~, NOTES+2*, NOTES+4, NOTES+5, NOTES+7, NOTES+8, NOTES+14, NOTES+15, NEWNOTE+4~, NEWNOTE+6* , NEWNOTE+11*, NEWNOTE+12, NN1+1, NN1+2, NN1+3, NN1+6, NN1+7, NN1+9 |
| FLD | EN+1~, EN+47*, EN+48, EN+50, EN+51, EN+53, EN+54 |
| GMPBULL | EN+1~, EN+60, NEW+70 |
| GMPC | COEXPRS+1~ |
| GMPCODE | COEXPRS+16~, COEXPRS+17*, COEXPRS+19, COEXPRS+21 |
| GMPD30 | COEXPRS+16~, COEXPRS+18*, COEXPRS+19 |
| GMPDA | COEXPRS~, COEXPRS+5, COEXPRS+7, COEXPRS+11, COEXPRS+18, COEXPRS+21, COEXPRS+22, COEXPRS+23, COEXPRS+30, COEXPRS+32 , COEXPRS+33, COEXPRS+37, COEXPRS+38, COEXPRS+39 |
| >> GMPDFN | NEW+41, NEW+42, NEW+73 |
| GMPDT | COEXPRS+16~, COEXPRS+20*, COEXPRS+23 |
| GMPFDA | COEXPRS+16~ |
| GMPFDA( | COEXPRS+21*, COEXPRS+22*, COEXPRS+23* |
| >> GMPFLD | EN+58, NEW+72 |
| >> GMPFLD( | EN+5*, EN+6, EN+7*, EN+8*, EN+10, EN+12*, EN+13, EN+16, EN+27, EN+28 , EN+30, EN+36*, EN+39, EN+40, EN+43, EN+44, EN+45*, EN+46, EN+48, EN+50 , EN+51, EN+53, EN+54, EN+60, REFORM+1, NEW+6, NEW+8*, NEW+9*, NEW+10, NEW+14* , NEW+15*, NEW+16*, NEW+17*, NEW+18, NEW+21, NEW+33, NEW+35, NEW+41, NEW+44, NEW+47 , NEW+48, NEW+49, NEW+53, NEW+70 |
| >> GMPFLD(10 | NOTES+1, NOTES+2, NOTES+8, NOTES+16, NEW+68, NN1+5, NN1+6 |
| >> GMPFLD(80001 | EN+18*, EN+60, NEW+24*, NEW+52, NEW+54, NEW+70 |
| >> GMPFLD(80002 | EN+26*, NEW+32*, NEW+54 |
| >> GMPFLD(80003 | EN+33*, NEW+38*, NEW+52, NEW+54 |
| >> GMPFLD(80004 | EN+35*, NEW+40*, NEW+52, NEW+54 |
| >> GMPFLD(80005 | EN+27*, EN+46*, NEW+52, NEW+53*, NEW+54 |
| >> GMPFLD(80101 | NEW+57, NEW+58 |
| >> GMPFLD(80102 | NEW+57, NEW+58 |
| >> GMPFLD(80201 | EN+4, EN+5, EN+8, EN+9*, EN+27, EN+46, EN+60, NEW+5, NEW+12*, NEW+53 , NEW+61, NEW+62, NEW+70 |
| >> GMPFLD(80202 | EN+4, EN+5, EN+8, EN+10*, EN+27, EN+46, EN+60, NEW+7, NEW+13*, NEW+53 , NEW+61, NEW+62, NEW+70 |
| GMPI | COEXPRS+1~, COEXPRS+15*, COEXPRS+17, COEXPRS+18, COEXPRS+28*, COEXPRS+30, COEXPRS+36*, COEXPRS+37*, COEXPRS+38, SPRCICD+1~ , SPRCICD+2* |
| GMPICD | EN+1~, EN+6*, EN+10, EN+59, EN+60, NEW+2~, NEW+10*, NEW+11*, NEW+13, NEW+65 , NEW+70, COEXPRS~, COEXPRS+3, COEXPRS+8, COEXPRS+14, COEXPRS+17, SPRCICD~, SPRCICD+2 |
| GMPIFN | EN+39, EN+41, EN+53, EN+54, EN+58, EN+59, NOTES+4, NOTES+5, NOTES+7, NOTES+8 , NOTES+9, NOTES+11, NOTES+14, NOTES+15, EXIT+1, REFORM+1, REFORM+2, REACTV+1, REACTV+2, NEW+2~ , NEW+68*, NEW+73*, NEWNOTE+5, NEWNOTE+6, NEWNOTE+7, NEWNOTE+8, NEWNOTE+9, NEWNOTE+10, NEWNOTE+11, NN1+1 , NN1+2, NN1+3, NN1+6, NN1+7, NN1+9, NNQ+1 |
| GMPIMPDT | EN+1~, EN+3*, EN+60, NEW+2~, NEW+4* |
| GMPJ | COEXPRS+1~, COEXPRS+10*, COEXPRS+11 |
| GMPLERR | EN+39~ |
| GMPLFDA | EN+39~, COEXPRS+9~ |
| GMPLFDA( | COEXPRS+11* |
| GMPLFDA(9000011 | EN+39*, EN+53* |
| >> GMPLUSER | EN+39 |
| GMPN | COEXPRS+1~, COEXPRS+14*, COEXPRS+15 |
| GMPNCNT | COEXPRS+1~, COEXPRS+7*, COEXPRS+10, COEXPRS+35 |
| GMPNOS | COEXPRS+16~*, COEXPRS+19 |
| GMPNOW | EN+1~, EN+3*, EN+60, NEW+2~, NEW+4* |
| GMPNUM | EN+14~, EN+15*, EN+22*, EN+23, NEW+19~, NEW+20*, NEW+28*, NEW+29 |
| GMPOCNT | COEXPRS+1~, COEXPRS+26*, COEXPRS+35, COEXPRS+36 |
| GMPOLDIND | EN+2~, EN+58, NEW+3~, NEW+72 |
| GMPOLDIND( | EN+50*, NEW+48* |
| GMPORIG | EN+58, COEXPRS+1~, COEXPRS+5*, COEXPRS+25 |
| GMPORIG( | EN+4*, EN+11*, EN+40, EN+43, EN+44, EN+51, EN+54, REFORM+1, COEXPRS+28, COEXPRS+30 |
| GMPORIG(0 | COEXPRS+26 |
| GMPORIG(10 | NOTES+1, NOTES+2, NOTES+7, NOTES+8 |
| GMPQT | EN+14~, EN+15*, EN+21, EN+22, EN+23*, EN+24, EN+25*, NEW+19~, NEW+20*, NEW+27 , NEW+28, NEW+29*, NEW+30, NEW+31* |
| >> GMPROV | EN+46, EN+54, EN+58, NOTES+9, NOTES+11, REFORM+1, REACTV+1, NN1+6, COEXPRS+32, COEXPRS+33 , COEXPRS+39 |
| >> GMPSAVED | EN+57*, EXIT+1, NEW+42* |
| GMPSCT | NTRTBULL~, NTRTBULL+4*, NTRTBULL+11 |
| GMPSITE | NTRTBULL+1~*, NTRTBULL+15 |
| GMPSRCH | EN+60, NEW+70, NTRTBULL~, NTRTBULL+16 |
| GMPSVC | NTRTBULL+1~, NTRTBULL+5*, NTRTBULL+14 |
| GMPSYN | EN+14~, EN+26!, NEW+19~, NEW+32! |
| GMPSYN( | EN+21, EN+22, EN+23, EN+25, NEW+27, NEW+28, NEW+29, NEW+31 |
| GMPTERM | NTRTBULL~, NTRTBULL+2, NTRTBULL+9, NTRTBULL+10 |
| GMPTYP | EN+14~, EN+15*, EN+21*, EN+22, EN+23, EN+25, NEW+19~, NEW+20*, NEW+27*, NEW+28 , NEW+29, NEW+31 |
| GMPUSER | NTRTBULL+1~, NTRTBULL+5 |
| GMPUSER(5 | NTRTBULL+5 |
| >> GMPVAMC | NEW+42, NEW+44, NEWNOTE+6, NEWNOTE+10 |
| GMPWRAP | NTRTBULL+1~, NTRTBULL+9* |
| GMPY | NTRTBULL~, NTRTBULL+2*, NTRTBULL+3*, NTRTBULL+17*, SPRCICD+1~*, SPRCICD+2*, SPRCICD+3 |
| HDR | NEWPROB+1~, NEWPROB+5*, NEWPROB+6, NEWNOTE+4~, NEWNOTE+8*, NN1+2* |
| I | EN+1~, EN+36*, NOTES+1*, NOTES+2, NOTES+7, NOTES+8, NEW+2~, NEW+47*, NEW+48, NEW+49 , NEWPROB+1~, NEWPROB+7*, NEWPROB+8, NEWNOTE+4~, NEWNOTE+9*, NEWNOTE+10, NEWNOTE+11, NN1+3*, NN1+4, NN1+5* , NN1+6, NEXTNMBR+1~*, NEXTNMBR+2* |
| ICD | NEWPROB~, NEWPROB+8, NEWPROB+9 |
| J | NEXTNMBR+1~, NEXTNMBR+2* |
| LAST | NEWPROB+1~, NEWPROB+6*, NEWPROB+7, NEWNOTE+4~, NEWNOTE+8*, NEWNOTE+9, NN1+2*, NN1+3, NN1+8*, NN1+9 |
| NEW0 | COEXPRS+29~, COEXPRS+30*, COEXPRS+31, COEXPRS+32, COEXPRS+38~*, COEXPRS+39 |
| NEWNTDT | EN+1~, NOTES+2*, NOTES+3*, NOTES+7 |
| NIFN | EN+1~, NOTES+2*, NOTES+4, NOTES+5, NOTES+7, NOTES+8, NOTES+15, NEWNOTE+4~, NN1+4*, NN1+6 , NN1+7, NN1+8* |
| NODE | EN+1~, NOTES+4*, NOTES+12, REFORM+2*, REFORM+3, REACTV+2*, REACTV+3 |
| NOW | EN+1~, EN+37*, EN+41, EN+54, NOTES+9, NOTES+11, REFORM+1, REACTV+1, COEXPRS+1~*, COEXPRS+32 , COEXPRS+33, COEXPRS+39 |
| NUM | NEW+2~, NEW+42*, NEW+44, NEXTNMBR+1~*, NEXTNMBR+2*, NEXTNMBR+3*, NEXTNMBR+4 |
| OLD0 | COEXPRS+29~, COEXPRS+30*, COEXPRS+31, COEXPRS+32, COEXPRS+33, COEXPRS+34 |
| OLDTEXT | EN+1~, NOTES+2*, NOTES+6, NOTES+10 |
| SCTC | EN+14~, EN+18*, EN+19, NEW+19~, NEW+23*, NEW+24, NEW+25 |
| SCTD | EN+14~, EN+19*, EN+20*, EN+23*, EN+25*, EN+26, NEW+19~, NEW+25*, NEW+26*, NEW+29* , NEW+31*, NEW+32 |
| SCTS | EN+14~, EN+16*, EN+17, EN+18, NEW+19~, NEW+21*, NEW+22, NEW+23 |
| SCTT | EN+14~, EN+17*, EN+23, EN+25, NEW+19~, NEW+22*, NEW+29, NEW+31 |
| TEXT | EN+1~, NOTES+2*, NOTES+5, NOTES+6, NOTES+10, NOTES+11, NOTES+13 |
| TOTAL | NEWPROB+1~, NEWPROB+6*, NEWPROB+10, NEWNOTE+4~, NEWNOTE+8*, NEWNOTE+11, NN1+2*, NN1+8*, NN1+9 |
| U | EN+4, EN+5, EN+6, EN+8, EN+9, EN+10, EN+17, EN+18, EN+20, EN+23 , EN+25, EN+26, EN+27, EN+31, EN+33, EN+35, EN+36, EN+41, EN+43, EN+46 , EN+51, EN+53, EN+54, EN+60, NOTES+2, NOTES+5, NOTES+7, NOTES+8, NOTES+9, NOTES+11 , REFORM+1, REFORM+2, REACTV+1, REACTV+2, NEW+5, NEW+7, NEW+9, NEW+10, NEW+12, NEW+13 , NEW+16, NEW+22, NEW+24, NEW+26, NEW+29, NEW+31, NEW+32, NEW+36, NEW+38, NEW+40 , NEW+44, NEW+47, NEW+49, NEW+52, NEW+53, NEW+54, NEW+57, NEW+58, NEW+61, NEW+62 , NEW+70, NEWPROB+6, NEWPROB+8, NEWPROB+10, NEWNOTE+8, NEWNOTE+11, NN1+2, NN1+6, NN1+9, NTRTBULL+15 , COEXPRS+7, COEXPRS+19, COEXPRS+26, COEXPRS+31, COEXPRS+32, COEXPRS+33, COEXPRS+39, SPRCICD+2 |
| VAMC | NEXTNMBR~, NEXTNMBR+1, NEXTNMBR+2 |
| VHATC | EN+29~, EN+32*, EN+33, NEW+34~, NEW+37*, NEW+38 |
| VHATD | EN+29~, EN+34*, EN+35*, NEW+34~, NEW+39*, NEW+40* |
| VHATS | EN+29~, EN+30*, EN+31, EN+32, NEW+34~, NEW+35*, NEW+36, NEW+37 |
| VHATT | EN+29~, EN+31*, EN+34, NEW+34~, NEW+36*, NEW+39 |
| X | EN+1~, NOTES+3*, NEW+2~, NEW+16*, NEW+74* |
| XMB | NTRTBULL+1~, NTRTBULL+6* |
| XMB(1 | NTRTBULL+10* |
| XMB(2 | NTRTBULL+11* |
| XMB(3 | NTRTBULL+12* |
| XMB(4 | NTRTBULL+13* |
| XMB(5 | NTRTBULL+14* |
| XMB(6 | NTRTBULL+15* |
| XMB(7 | NTRTBULL+16* |
| XMBNM | NTRTBULL+1~ |
| XMDUZ | NTRTBULL+1~, NTRTBULL+7* |
| XMY | NTRTBULL+1~ |
| XMY("G.PROBLE | M LIST NTRT@domain.ext" , NTRTBULL+8* |
| XMZ | NTRTBULL+1~ |
| Y | NOTES+3, COEXPRS+16~, COEXPRS+20* |