Routine: GMPLSAVE

Package	Total	Call Graph
Kernel	3	($$DT,$$FMTE,$$HTFM,$$NOW)^XLFDT EN1^XQOR USERINFO^XUSRB2
VA Fileman	3	^DIE (,IX1)^DIK $$GET1^DIQ
MailMan	2	KILL^XM ^XMB
Problem List	2	($$NOS,$$PROVNARR,AUDIT,DTMOD)^GMPLX $$WRAP^GMPLX1
Lexicon Utility	1	$$GETDES^LEXTRAN1
Registration	1	$$SITE^VASITE

Package	Total	Caller Graph
Problem List	4	GMPL1 GMPLEDIT GMPLUTL GMPLUTL2
Order Entry Results Reporting	2	ORQQPL1 ORQQPL2

Entry Points

Name	Comments	DBIA/ICR reference
SPRCICD(GMPICD)	; Is ICD string sparce (i.e., called from SDS API w/order > 2)?
EN	; Save Changes made to Existing Problem	ICR #2978 Status: Active Usage: Controlled Subscription
NTRTBULL(GMPY,GMPTERM,GMPSCT,GMPSRCH)	; Send NTRT Request bulletin to NTRT mailgroup
REFORM	; Audit Entry that has been Reformulated
NEWNOTE	; Creates New Note Entries for Problem ; Requires GMPIFN Pointer to Problem ; GMPROV Current Provider ; GMPVAMC Facility	ICR #2978 Status: Active Usage: Controlled Subscription
NOTES	; Save Changes to Notes
REACTV	; Audit Entry that has been Reactivated
COEXPRS(GMPDA,GMPICD)	; File multiple ICDs
EXIT	; Quit Saving Changes
NNQ	; Quit Getting New Notes
NEXTNMBR(DFN,VAMC)	; Returns Next Available Problem Number
NEW	; Save Collected Values in new Problem Entry ; Output DA (left defined)	ICR #2978 Status: Active Usage: Controlled Subscription
NEWPROB(ICD,DFN)	; Creates New Problem Entry in file #9000011
NN1	; Get New Note

External References

Name	Field # of Occurrence
^DIE	EN+40
^DIK	NOTES+12
IX1^DIK	NEW+46
$$GET1^DIQ	NTRTBULL+12
$$NOS^GMPLX	EN+2, EN+3, EN+6, EN+16, EN+34, EN+42, NEW+3, NEW+4, NEW+36, NEW+48 , COEXPRS+11, SPRCICD+2
$$PROVNARR^GMPLX	EN+25, NEW+8
AUDIT^GMPLX	EN+30, EN+39, NOTES+9, REFORM+3, REACTV+3, COEXPRS+26, COEXPRS+32
DTMOD^GMPLX	EXIT+1
$$WRAP^GMPLX1	NTRTBULL+9
$$GETDES^LEXTRAN1	EN+14, EN+23, NEW+16, NEW+24
$$SITE^VASITE	NTRTBULL+1
$$DT^XLFDT	NEW+9
$$FMTE^XLFDT	NTRTBULL+13
$$HTFM^XLFDT	EN+26
$$NOW^XLFDT	NTRTBULL+13, COEXPRS+1
KILL^XM	NTRTBULL+17
^XMB	NTRTBULL+17
EN1^XQOR	NEW+51
USERINFO^XUSRB2	NTRTBULL+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Someone else is currently editing this file." Line Location: NEWPROB+3
Function Call: WRITE	Prompt: !,"Please try again later.",! Line Location: NEWPROB+4
Routine Call	DIE Line Location: EN+40

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^AUPNPROB - [#9000011]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPROB - [#9000011]	NOTES+3, NOTES+4, REFORM+2, REACTV+2, NEW+29, NEW+30, NEW+33, NEW+38, NEW+42, 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+13, COEXPRS+15, COEXPRS+16 , COEXPRS+18, COEXPRS+22, COEXPRS+29, COEXPRS+30
^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+51
^VA(200 - [#200]	NTRTBULL+3

Label References

Name	Line Occurrences
$$NEWPROB	NEW+26
$$NEXTNMBR	NEW+27
$$SPRCICD	COEXPRS+7
COEXPRS	EN+41, NEW+44
NEWNOTE	NOTES+13, NEW+47
NNQ	NEWNOTE+12
NTRTBULL	EN+42, NEW+48
REACTV	EN+31
REFORM	EN+32

Naked Globals

Name	Field # of Occurrence
^(0	NEWNOTE+7, NN1+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APCDALVR	NEW+2~, NEW+46*
APCDLOOK	NEW+2~, NEW+46*
AUDITED	EN+1~, EN+26, EN+31, EN+32*, EN+38
CHANGE	COEXPRS+21~, COEXPRS+24, COEXPRS+25, COEXPRS+26, COEXPRS+30~, COEXPRS+31*, COEXPRS+32
CHNGE	EN+1~, EN+29, EN+30, EN+38, EN+39, NOTES+6, NOTES+8, NOTES+9, REFORM+1, REFORM+3 , REACTV+1, REACTV+3
CODSYS	COEXPRS+1~, COEXPRS+3*, COEXPRS+15
DA	EN+1~, EN+40, NOTES+12, NEW+26, NEW+29, NEW+30, NEW+33, NEW+38, NEW+42, NEW+44 , NEW+47, NEW+50, NEWPROB+1~, NEWPROB+8, NEWPROB+9, NEWPROB+10, NEWPROB+11
DA(1	NOTES+12*
DA(2	NOTES+12*
DATA	NEW+2~, NEW+29, NEW+30, NEW+32, NEW+33, NEW+37, NEW+38, NEW+41, NEW+42
DFN	NEW+50~*, NEWPROB~, NEWPROB+8, NEWPROB+9, NEXTNMBR~, NEXTNMBR+1, NEXTNMBR+2
DIE	EN+1~, EN+40*
DIK	EN+1~, NOTES+11, NEW+2~, NEW+46
DR	EN+1~, EN+27, EN+37
DT	NEW+29, NN1+6, COEXPRS+15
DUZ	EN+29, EN+38, NOTES+6, NOTES+8, REFORM+1, REACTV+1, NTRTBULL+3, NTRTBULL+12, COEXPRS+24, COEXPRS+25 , COEXPRS+31
FAC	EN+1~, NOTES+2, NOTES+3, NOTES+4, NOTES+11, NOTES+12, NEWNOTE+4~, NEWNOTE+6, NEWNOTE+11*, NEWNOTE+12 , NN1+1, NN1+2, NN1+3, NN1+6, NN1+7, NN1+9
FLD	EN+1~, EN+35*, EN+36, EN+37, EN+38
GMPBULL	EN+1~, EN+42, NEW+48
GMPC	COEXPRS+1~, COEXPRS+9, COEXPRS+12, COEXPRS+16
GMPCODE	COEXPRS+11~, COEXPRS+12*, COEXPRS+14, COEXPRS+15
GMPD30	COEXPRS+11~, COEXPRS+13*, COEXPRS+14
GMPDA	COEXPRS~, COEXPRS+5, COEXPRS+7, COEXPRS+13, COEXPRS+15, COEXPRS+16, COEXPRS+18, COEXPRS+22, COEXPRS+24, COEXPRS+25 , COEXPRS+29, COEXPRS+30, COEXPRS+31
GMPDA1	COEXPRS+11~, COEXPRS+12*, COEXPRS+13, COEXPRS+15, COEXPRS+16
>> GMPDFN	NEW+26, NEW+27, NEW+50
>> GMPFLD(	EN+3, EN+4, EN+5, EN+6, EN+8, EN+9, EN+11, EN+16, EN+17, EN+19 , EN+25, EN+27, EN+28, EN+31, EN+32, EN+33, EN+34, EN+36, EN+37, EN+38 , EN+42, REFORM+1, NEW+3, NEW+4, NEW+5, NEW+6, NEW+7, NEW+8, NEW+9, NEW+10 , NEW+12, NEW+18, NEW+20, NEW+26, NEW+29, NEW+32, NEW+36, NEW+48
>> GMPFLD(10	NOTES+1, NOTES+2, NOTES+13, NEW+47, NN1+5, NN1+6
>> GMPFLD(80001	EN+13, EN+42, NEW+15, NEW+35, NEW+37, NEW+48
>> GMPFLD(80002	EN+15, NEW+17, NEW+37
>> GMPFLD(80003	EN+22, NEW+23, NEW+35, NEW+37
>> GMPFLD(80004	EN+24, NEW+25, NEW+35, NEW+37
>> GMPFLD(80005	EN+16, EN+34, NEW+35, NEW+36*, NEW+37
>> GMPFLD(80101	NEW+40, NEW+41
>> GMPFLD(80102	NEW+40, NEW+41
GMPI	COEXPRS+1~, COEXPRS+10, COEXPRS+12, COEXPRS+20, COEXPRS+22, COEXPRS+28, COEXPRS+29, COEXPRS+30, SPRCICD+1~, SPRCICD+2*
GMPICD	EN+1~, EN+4, EN+41, EN+42, NEW+2~, NEW+5, NEW+44, NEW+48, COEXPRS~, COEXPRS+7 , COEXPRS+9, COEXPRS+12, SPRCICD~, SPRCICD+2
GMPIFN	EN+29, EN+38, EN+40, EN+41, NOTES+3, NOTES+4, NOTES+6, NOTES+8, NOTES+11, NOTES+12 , EXIT+1, REFORM+1, REFORM+2, REACTV+1, REACTV+2, NEW+2~, NEW+47, NEW+50, 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
>> GMPLUSER	EN+27
GMPN	COEXPRS+1~, COEXPRS+9*, COEXPRS+10
GMPNCNT	COEXPRS+1~, COEXPRS+18*, COEXPRS+27
GMPNOS	COEXPRS+11~*, COEXPRS+14
GMPOCNT	COEXPRS+1~, COEXPRS+18*, COEXPRS+27, COEXPRS+28
GMPORIG	COEXPRS+1~, COEXPRS+5*, COEXPRS+17
GMPORIG(	EN+2, EN+7, EN+28, EN+31, EN+32, EN+36, EN+38, REFORM+1, COEXPRS+20, COEXPRS+22
GMPORIG(0	COEXPRS+18
GMPORIG(10	NOTES+1, NOTES+2
>> GMPROV	EN+34, EN+38, NOTES+6, NOTES+8, REFORM+1, REACTV+1, NN1+6, COEXPRS+24, COEXPRS+25, COEXPRS+31
>> GMPSAVED	EN+40, EXIT+1, NEW+27
GMPSCT	NTRTBULL~, NTRTBULL+4*, NTRTBULL+11
GMPSITE	NTRTBULL+1~*, NTRTBULL+15
GMPSRCH	EN+42, NEW+48, NTRTBULL~, NTRTBULL+16
GMPSVC	NTRTBULL+1~, NTRTBULL+5*, NTRTBULL+14
GMPTERM	NTRTBULL~, NTRTBULL+2, NTRTBULL+9, NTRTBULL+10
GMPUSER	NTRTBULL+1~, NTRTBULL+5
GMPUSER(5	NTRTBULL+5
>> GMPVAMC	NEW+27, NEW+29, 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+25, NOTES+1, NOTES+2, NEW+2~, NEW+32, 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+21~, COEXPRS+22, COEXPRS+23, COEXPRS+24, COEXPRS+30~, COEXPRS+31
NIFN	EN+1~, NOTES+2, NOTES+3, NOTES+4, NOTES+12, NEWNOTE+4~, NN1+4, NN1+6, NN1+7, NN1+8*
NODE	EN+1~, NOTES+3, NOTES+9, REFORM+2, REFORM+3, REACTV+2*, REACTV+3
NOW	EN+1~, EN+26, EN+29, EN+38, NOTES+6, NOTES+8, REFORM+1, REACTV+1, COEXPRS+1~, COEXPRS+24 , COEXPRS+25, COEXPRS+31
NUM	NEW+2~, NEW+27, NEW+29, NEXTNMBR+1~, NEXTNMBR+2, NEXTNMBR+3, NEXTNMBR+4
OLD0	COEXPRS+21~, COEXPRS+22*, COEXPRS+23, COEXPRS+24, COEXPRS+25, COEXPRS+26
OLDTEXT	EN+1~, NOTES+2*, NOTES+5, NOTES+7
SCTC	EN+10~, EN+13, NEW+11~, NEW+14, NEW+15
SCTD	EN+10~, EN+14, EN+15, NEW+11~, NEW+16, NEW+17
SCTS	EN+10~, EN+11, EN+12, EN+13, NEW+11~, NEW+12, NEW+13, NEW+14
SCTT	EN+10~, EN+12, EN+14, NEW+11~, NEW+13, NEW+16
TEXT	EN+1~, NOTES+2*, NOTES+4, NOTES+5, NOTES+7, NOTES+8, NOTES+10
TOTAL	NEWPROB+1~, NEWPROB+6, NEWPROB+10, NEWNOTE+4~, NEWNOTE+8, NEWNOTE+11, NN1+2, NN1+8, NN1+9
U	EN+4, EN+6, EN+12, EN+13, EN+15, EN+20, EN+22, EN+24, EN+25, EN+29 , EN+31, EN+36, EN+37, EN+38, EN+42, NOTES+2, NOTES+4, NOTES+6, NOTES+8, REFORM+1 , REFORM+2, REACTV+1, REACTV+2, NEW+4, NEW+5, NEW+8, NEW+13, NEW+15, NEW+17, NEW+21 , NEW+23, NEW+25, NEW+29, NEW+32, NEW+35, NEW+36, NEW+37, NEW+40, NEW+41, NEW+48 , NEWPROB+6, NEWPROB+8, NEWPROB+10, NEWNOTE+8, NEWNOTE+11, NN1+2, NN1+6, NN1+9, NTRTBULL+15, COEXPRS+14 , COEXPRS+15, COEXPRS+16, COEXPRS+18, COEXPRS+23, COEXPRS+24, COEXPRS+25, COEXPRS+31, SPRCICD+2
VAMC	NEXTNMBR~, NEXTNMBR+1, NEXTNMBR+2
VHATC	EN+18~, EN+21, EN+22, NEW+19~, NEW+22, NEW+23
VHATD	EN+18~, EN+23, EN+24, NEW+19~, NEW+24, NEW+25
VHATS	EN+18~, EN+19, EN+20, EN+21, NEW+19~, NEW+20, NEW+21, NEW+22
VHATT	EN+18~, EN+20, EN+23, NEW+19~, NEW+21, NEW+24
X	NEW+2~, NEW+8, NEW+51
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@forum.domain.ext" , NTRTBULL+8*
XMZ	NTRTBULL+1~

Customize PDF page

Package: Problem List

Routine: GMPLSAVE

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: