Routine: GMPL31P

Package	Total	Call Graph
Problem List	1	$$NOS^GMPLX

Entry Points

Name	Comments	DBIA/ICR reference
FDAUDIT	;
EN	;ENTRY POINT
AUDTCLN	;
FIND	;

External References

Name	Field # of Occurrence
$$NOS^GMPLX	EN+13, AUDTCLN+15, AUDTCLN+28

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"THE FOLLOWING PROBLEM LIST ENTRIES CONTAINED BAD ICD9 POINTERS" Line Location: EN+6
Function Call: WRITE	Prompt: !,"AND HAVE BEEN MODIFIED WITH A CORRECTED POINTER",! Line Location: EN+7
Function Call: WRITE	Prompt: !,"PROBLEM IEN BAD POINTER CORRECTED POINTER" Line Location: EN+8
Function Call: WRITE	Prompt: !,"___________ ___________ _______________" Line Location: EN+9
Function Call: WRITE	Prompt: !!,"TOTAL ITEMS WORKED = "_TOTALWK Line Location: EN+23
Function Call: WRITE	Prompt: !,"TOTAL ITEMS ADJUSTED = "_ADJUSTED Line Location: EN+24
Function Call: WRITE	Prompt: !! Line Location: EN+25
Function Call: WRITE	Prompt: !,"THE FOLLOWING PROBLEM LIST AUDIT ENTRIES CONTAINED BAD ICD9 POINTERS" Line Location: AUDTCLN+5
Function Call: WRITE	Prompt: !,"AND HAVE BEEN MODIFIED WITH A CORRECTED POINTER",! Line Location: AUDTCLN+6
Function Call: WRITE	Prompt: !,"PROBLEM IEN BAD POINTER CORRECTED POINTER" Line Location: AUDTCLN+7
Function Call: WRITE	Prompt: !,"___________ ___________ _______________" Line Location: AUDTCLN+8
Function Call: WRITE	Prompt: !!,"TOTAL AUDIT ITEMS WORKED = "_TOTALWK Line Location: AUDTCLN+38
Function Call: WRITE	Prompt: !,"TOTAL AUDIT ITEMS ADJUSTED = "_ADJUSTED Line Location: AUDTCLN+39
Function Call: WRITE	Prompt: !,"AN ITEM IEN MAY APPEAR UP TO 2 TIMES ONE FOR EACH BAD PIECE" Line Location: AUDTCLN+40
Function Call: WRITE	Prompt: !,"AS THE FIFTH AND SIXTH PIECES ARE CHECKED" Line Location: AUDTCLN+41
Function Call: WRITE	Prompt: !,IEN,?10,$P(^AUPNPROB(IEN,0),"^") Line Location: FIND+8
Function Call: WRITE	Prompt: !,IEN,?10,$P(^AUPNPROB(IEN,0),"^") Line Location: FIND+9
Function Call: WRITE	Prompt: !,"TOTAL ITEMS LOOKED AT = "_TOTALWK Line Location: FIND+10
Function Call: WRITE	Prompt: !,"TOTAL BAD POINTERS FOUND = "_ADJUSTED Line Location: FIND+11
Function Call: WRITE	Prompt: !,IEN,?10,$P(^GMPL(125.8,IEN,0),"^") Line Location: FDAUDIT+8
Function Call: WRITE	Prompt: !,IEN,?10,$P(^GMPL(125.8,IEN,0),"^") Line Location: FDAUDIT+9
Function Call: WRITE	Prompt: !,IEN,?10,$P(^GMPL(125.8,IEN,0),"^",5) Line Location: FDAUDIT+10
Function Call: WRITE	Prompt: !,IEN,?10,$P(^GMPL(125.8,IEN,0),"^",5) Line Location: FDAUDIT+11
Function Call: WRITE	Prompt: !,IEN,?10,$P(^GMPL(125.8,IEN,0),"^",6) Line Location: FDAUDIT+12
Function Call: WRITE	Prompt: !,IEN,?10,$P(^GMPL(125.8,IEN,0),"^",6) Line Location: FDAUDIT+13
Function Call: WRITE	Prompt: !,"TOTAL ITEMS LOOKED AT = "_TOTALWK Line Location: FDAUDIT+14
Function Call: WRITE	Prompt: !,"TOTAL BAD POINTERS FOUND = "_ADJUSTED Line Location: FDAUDIT+15

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPROB - [#9000011]	EN+10, EN+11, EN+12, EN+13, EN+14, EN+17, EN+18, EN+19, EN+20, FIND+6 , FIND+8, FIND+9
^GMPL(125.8 - [#125.8]	AUDTCLN+9, AUDTCLN+10, AUDTCLN+13, AUDTCLN+14, AUDTCLN+15, AUDTCLN+16, AUDTCLN+19, AUDTCLN+20, AUDTCLN+21, AUDTCLN+22 , AUDTCLN+26, AUDTCLN+27, AUDTCLN+28, AUDTCLN+29, AUDTCLN+32, AUDTCLN+33, AUDTCLN+34, AUDTCLN+35, FDAUDIT+6, FDAUDIT+8 , FDAUDIT+9, FDAUDIT+10, FDAUDIT+11, FDAUDIT+12, FDAUDIT+13

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Customize PDF page

Package: Problem List

Routine: GMPL31P

Information

Source Information

Call Graph

Call Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Field # of Occurrence
ADJUSTED	EN+2~, EN+5, EN+15, EN+21, EN+24, AUDTCLN+1~, AUDTCLN+4, AUDTCLN+17, AUDTCLN+23, AUDTCLN+30* , AUDTCLN+36, AUDTCLN+39, FIND+2~, FIND+5, FIND+8, FIND+9, FIND+11, FDAUDIT+2~, FDAUDIT+5, FDAUDIT+8 , FDAUDIT+9, FDAUDIT+10, FDAUDIT+11, FDAUDIT+12, FDAUDIT+13*, FDAUDIT+15
HIT	AUDTCLN+1~, AUDTCLN+11, AUDTCLN+17, AUDTCLN+23, AUDTCLN+30, AUDTCLN+36*
IEN	EN+2~, EN+3, EN+10, EN+11, EN+12, EN+13, EN+14, EN+17, EN+18, EN+19 , EN+20, AUDTCLN+1~, AUDTCLN+2, AUDTCLN+9, AUDTCLN+10, AUDTCLN+13, AUDTCLN+14, AUDTCLN+15, AUDTCLN+16, AUDTCLN+19 , AUDTCLN+20, AUDTCLN+21, AUDTCLN+22, AUDTCLN+26, AUDTCLN+27, AUDTCLN+28, AUDTCLN+29, AUDTCLN+32, AUDTCLN+33, AUDTCLN+34 , AUDTCLN+35, FIND+2~, FIND+3, FIND+6, FIND+8, FIND+9, FDAUDIT+2~, FDAUDIT+3, FDAUDIT+6, FDAUDIT+8 , FDAUDIT+9, FDAUDIT+10, FDAUDIT+11, FDAUDIT+12, FDAUDIT+13
TOTALWK	EN+2~, EN+4, EN+22, EN+23, AUDTCLN+1~, AUDTCLN+3, AUDTCLN+37, AUDTCLN+38, FIND+2~, FIND+4* , FIND+7, FIND+10, FDAUDIT+2~, FDAUDIT+4, FDAUDIT+7*, FDAUDIT+14