Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: GMPL31P

Package: Problem List

Routine: GMPL31P


Information

GMPL31P ;SLC/JEH -- Post Install Routine ;3/1/05 11:00

Source Information

Source file <GMPL31P.m>

Call Graph

Call Graph Total: 1

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

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
AUDTCLN EN+26

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All