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

Package: Contract Health Management Information System

Routine: ACHSRPI1


Information

ACHSRPI1 ; IHS/ITSC/PMF - TPF RE-WRITE OF ACHSRPI ;

Source Information

Source file <ACHSRPI1.m>

Entry Points

Name Comments DBIA/ICR reference
SUPINS(DFN,ACHSFDT,ACHSTDT,ACHSFAC,ACHSA,IGNORE) ;EP from ACHSDNL3
END ;
PVTINS(DFN,ACHSFDT,ACHSTDT,ACHSFAC,ACHSA,IGNORE) ;EP from ACHSDNL3
BOX3H(DFN,ACHSEFF) ;
RESULT(ACHSPEDT,ACHSPTDT,ACHSFDT,ACHSTDT,ACHSINAM,ACHSPNUM,RESULT,DTOFSERV) ;
TEST ;THIS LOOP FOR TESTING
POLGOOD(ACHSPEDT,ACHSPTDT,ACHSFDT,ACHSTDT,IGNORE) ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?INSTAB,"PRIVATE INSURANCE COVERAGE",!?INSTAB,"BASED ON DATE OF SERVICE: "
  • Line Location: PVTINS+16
Function Call: WRITE
  • Prompt: Y
  • Line Location: PVTINS+16
Function Call: WRITE
  • Prompt: !!?INSTAB,"SUPPLEMENTAL INSURANCE COVERAGE",!?INSTAB,"BASED ON DATE OF SERVICE: "
  • Line Location: SUPINS+24
Function Call: WRITE
  • Prompt: Y
  • Line Location: SUPINS+24
Function Call: WRITE
  • Prompt: !!?INSTAB,"INSURER: ",ACHSINAM
  • Line Location: RESULT+12
Function Call: WRITE
  • Prompt: !?INSTAB,"POLICY #: ",ACHSPNUM
  • Line Location: RESULT+13
Function Call: WRITE
  • Prompt: !?INSTAB,"FOR AUTH. DATE RANGE: "
  • Line Location: RESULT+16
Function Call: WRITE
  • Prompt: ACHSYAYA
  • Line Location: RESULT+24
Function Call: WRITE
  • Prompt: !?INSTAB,"POLICY BEGIN: "
  • Line Location: RESULT+28
Function Call: WRITE
  • Prompt: Y
  • Line Location: RESULT+28
Function Call: WRITE
  • Prompt: !?INSTAB,"POLICY END: "
  • Line Location: RESULT+29
Function Call: WRITE
  • Prompt: Y
  • Line Location: RESULT+29
Function Call: WRITE
  • Prompt: !?INSTAB,"AUTH FROM: "
  • Line Location: RESULT+31
Function Call: WRITE
  • Prompt: Y
  • Line Location: RESULT+31
Function Call: WRITE
  • Prompt: !?INSTAB,"AUTH TO: "
  • Line Location: RESULT+32
Function Call: WRITE
  • Prompt: Y
  • Line Location: RESULT+32
Function Call: WRITE
  • Prompt: !!!,"*****************"
  • Line Location: BOX3H+3
Function Call: WRITE
  • Prompt: !,"***NO EFFECTIVE POLICIES FOUND!***"
  • Line Location: BOX3H+12
Function Call: WRITE
  • Prompt: ""
  • Line Location: BOX3H+16
Function Call: WRITE
  • Prompt: Y
  • Line Location: BOX3H+17
Function Call: WRITE
  • Prompt: ""
  • Line Location: BOX3H+19
Function Call: WRITE
  • Prompt: Y
  • Line Location: BOX3H+20
Function Call: WRITE
  • Prompt: !,"*******************",!!!
  • Line Location: BOX3H+21

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHSDEN - [#9002071] PVTINS+3, PVTINS+4, SUPINS+4, SUPINS+5
^ACHSF - [#9002080] TEST+4, TEST+6, TEST+7, TEST+8, TEST+9
^AUPN3PPH - [#9000003.1] PVTINS+19
^AUPNMCD("B" SUPINS+8
^AUPNPRVT - [#9000006] PVTINS+7, PVTINS+8
^AUPNRRE - [#9000005] SUPINS+38
^AUTNINS - [#9999999.18] PVTINS+22, SUPINS+31
^AUTTMCS - [#9999999.32] SUPINS+35
^DD("DD" PVTINS+16, POLGOOD+13, RESULT+28, RESULT+29, RESULT+31, RESULT+32, BOX3H+17, BOX3H+20
^DPT - [#2] BOX3H+13

Label References

Name Line Occurrences
$$POLGOOD RESULT+7
BOX3H TEST+12
END PVTINS+24, SUPINS+41
PVTINS TEST+10
RESULT PVTINS+23, SUPINS+40
SUPINS TEST+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACHSA PVTINS~, PVTINS+3, PVTINS+4, SUPINS~, SUPINS+4, SUPINS+5
>> ACHSDOC TEST+5*, TEST+6*, TEST+7, TEST+8, TEST+9, PVTINS+3*, SUPINS+4*
ACHSEFF TEST+3!, TEST+12, BOX3H~, END+1!
ACHSEFF( RESULT+34*, RESULT+36*, BOX3H+2, BOX3H+5, BOX3H+7, BOX3H+9, BOX3H+11, BOX3H+12
ACHSEIN SUPINS+2~, SUPINS+8*, SUPINS+9, SUPINS+13, SUPINS+14, SUPINS+15
ACHSFAC TEST+1*, TEST+4*, TEST+6, TEST+7, TEST+8, TEST+9, PVTINS~, PVTINS+3, PVTINS+4, SUPINS~
, SUPINS+4, SUPINS+5, END+1!
ACHSFDT TEST+7*, TEST+10, TEST+11, PVTINS~, PVTINS+23, SUPINS~, SUPINS+40, POLGOOD~, POLGOOD+7, POLGOOD+10
, POLGOOD+17, POLGOOD+26, POLGOOD+33, POLGOOD+45, RESULT~, RESULT+3*, RESULT+7, RESULT+31, END+1!
ACHSGLOB PVTINS+5*, SUPINS+6*, SUPINS+8, SUPINS+13, SUPINS+14, SUPINS+15, SUPINS+27, SUPINS+32, SUPINS+36, END+1!
ACHSINAM PVTINS+21*, PVTINS+22*, PVTINS+23, SUPINS+30*, SUPINS+31*, SUPINS+40, RESULT~, RESULT+5*, RESULT+12, RESULT+34
, RESULT+36, END+1!
ACHSINSU PVTINS+20*, PVTINS+21, PVTINS+22, SUPINS+29*, SUPINS+30, SUPINS+31, END+1!
ACHSIPRE SUPINS+36*, SUPINS+37*, SUPINS+38*, SUPINS+39, END+1!
ACHSISUF SUPINS+32*, SUPINS+33*, SUPINS+35*, SUPINS+39, END+1!
ACHSNAM BOX3H+4*, BOX3H+5*, BOX3H+7, BOX3H+9, BOX3H+11, BOX3H+12, BOX3H+14, END+2!
ACHSPEDT PVTINS+9*, PVTINS+13, PVTINS+23, SUPINS+16*, SUPINS+20, SUPINS+40, POLGOOD~, POLGOOD+4, POLGOOD+17, POLGOOD+19
, POLGOOD+26, POLGOOD+33, POLGOOD+41, RESULT~, RESULT+1*, RESULT+7, RESULT+28, RESULT+34, RESULT+36, BOX3H+6*
, BOX3H+7*, BOX3H+9, BOX3H+11, BOX3H+12, BOX3H+16, BOX3H+17, END+2!
ACHSPIN0 SUPINS+15*, SUPINS+27, SUPINS+28, SUPINS+29, SUPINS+32, SUPINS+36, END+2!
ACHSPINS PVTINS+8*, PVTINS+9, PVTINS+10, PVTINS+19, PVTINS+20, SUPINS+14*, SUPINS+16, SUPINS+17, END+2!
ACHSPNUM PVTINS+19*, PVTINS+23, SUPINS+26*, SUPINS+27*, SUPINS+28*, SUPINS+39*, SUPINS+40, RESULT~, RESULT+6*, RESULT+13
, RESULT+34, RESULT+36, BOX3H+10*, BOX3H+11*, BOX3H+12, BOX3H+14, END+2!
ACHSPTDT PVTINS+10*, PVTINS+15, PVTINS+23, SUPINS+17*, SUPINS+22, SUPINS+40, POLGOOD~, POLGOOD+1*, POLGOOD+10, POLGOOD+13
, POLGOOD+19, POLGOOD+26, POLGOOD+33, POLGOOD+45, RESULT~, RESULT+2*, RESULT+7, RESULT+29, RESULT+34, RESULT+36
, BOX3H+8*, BOX3H+9*, BOX3H+11, BOX3H+12, BOX3H+19, BOX3H+20, END+2!
ACHSTDT TEST+8*, TEST+10, TEST+11, PVTINS~, PVTINS+23, SUPINS~, SUPINS+40, POLGOOD~, POLGOOD+2*, POLGOOD+13
, POLGOOD+26, POLGOOD+33, POLGOOD+41, RESULT~, RESULT+4*, RESULT+7, RESULT+32, END+2!
ACHSYAYA RESULT+21*, RESULT+22*, RESULT+23*, RESULT+24!
DFN TEST+9*, TEST+10, TEST+11, TEST+12, PVTINS~, PVTINS+1, PVTINS+7, PVTINS+8, SUPINS~, SUPINS+1
, SUPINS+8, RESULT+34, RESULT+36, BOX3H~, BOX3H+1, BOX3H+2, BOX3H+5, BOX3H+7, BOX3H+9, BOX3H+11
, BOX3H+12, BOX3H+13
DTOFSERV PVTINS+4*, PVTINS+13, PVTINS+15, PVTINS+16, PVTINS+23, SUPINS+5*, SUPINS+20, SUPINS+22, SUPINS+40, RESULT~
, END+2!
IGNORE PVTINS~, PVTINS+23, SUPINS~, SUPINS+40, POLGOOD~, RESULT+15, RESULT+31, RESULT+32, END+2!
INSDA PVTINS+6*, PVTINS+7*, PVTINS+8, SUPINS+7*, SUPINS+13*, SUPINS+14, END+2!
INSTAB TEST+2*, PVTINS+2*, PVTINS+16, SUPINS+3*, RESULT+11*, RESULT+12, RESULT+13, RESULT+16, RESULT+28, RESULT+29
, RESULT+31, RESULT+32, END+2!
RESULT RESULT~, END+2!
>> STAT RESULT+7*, RESULT+21, RESULT+22, RESULT+23, RESULT+34, RESULT+36
U TEST+2*, TEST+7, TEST+8, TEST+9, PVTINS+3, PVTINS+4, PVTINS+9, PVTINS+10, PVTINS+19, PVTINS+20
, PVTINS+22, SUPINS+4, SUPINS+5, SUPINS+16, SUPINS+17, SUPINS+27, SUPINS+28, SUPINS+29, SUPINS+31, SUPINS+32
, SUPINS+35, SUPINS+36, SUPINS+38, POLGOOD+13, RESULT+21, RESULT+34, BOX3H+13
X PVTINS+7*, PVTINS+16, SUPINS+13*, POLGOOD+13, POLGOOD+17*, END+2!
Y PVTINS+16*, POLGOOD+13*, RESULT+28*, RESULT+29*, RESULT+31*, RESULT+32*, BOX3H+17*, BOX3H+20*, END+2!
Info |  Source |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All