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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ACHSCHF1

Package: Contract Health Management Information System

Routine: ACHSCHF1


Information

ACHSCHF1 ; IHS/ITSC/TPF/PMF - PRINT C H E F REIMBURSEMENT REQUEST ;

Source Information

Source file <ACHSCHF1.m>

Call Graph

Call Graph Total: 15

Package Total Call Graph
Contract Health Management Information System 5 ($$DOC,$$PARM,$$PB,ERPT,RTRN)^ACHS  (H,PAT,POSUM,POSUM2,SET,SETBS)^ACHSCHF  SEL^ACHSCHF2  EN^ACHSRP31  ^ACHSVAR  
Kernel 5 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  $$REPEAT^XLFSTR  
IHS VA Utilities 4 $$VAL^XBDIQ1  $$C^XBFUNC  VIEWR^XBLM  EN^XBVK  
IHS Patient 1 ($$DOB,$$SEX)^AUPNPAT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Contract Health Management Information System 1 ACHS CHEF REQUEST  

Entry Points

Name Comments DBIA/ICR reference
P2 ;
P3 ;
P1 ;
END ; Ask RTRN, write IOF.
HDR ; Write header of CHEF sheet.
LN ;
K ;EP - Kill vars, do ERPT, quit.
PB ;SECTION TO PRINT BLANKET INFORMATION ;ACHS*3.1*16 IHS.OIT.FCJ
BOT ; Print bottom of CHEF.
DEV ; Select device/ztload.
A1 ;TOTAL AMENDMENTS ;ACHS*3.1*16 11.9.2009 IHS.OIT.FCJ
START ;EP - From TaskMan.
B1 ;BLANKETS AND SLO ;ACHS*3.1*16 11.9.2009 IHS.OIT.FCJ

External References

Name Field # of Occurrence
^%ZIS DEV+5
HOME^%ZIS DEV+6
^%ZISC DEV+9
^%ZTLOAD DEV+12
$$DOC^ACHS START+7, START+8, START+9, START+10
$$PARM^ACHS START+4
$$PB^ACHS DEV+1
ERPT^ACHS K+3
RTRN^ACHS END+1, HDR+29
H^ACHSCHF HDR+40
PAT^ACHSCHF BOT+2
POSUM^ACHSCHF P3+2
POSUM2^ACHSCHF PB+8
SET^ACHSCHF START+13
SETBS^ACHSCHF B1+7
SEL^ACHSCHF2 ACHSCHF1+6
EN^ACHSRP31 HDR+37
^ACHSVAR START+1, K+1
$$DOB^AUPNPAT HDR+14
$$SEX^AUPNPAT HDR+15
$$VAL^XBDIQ1 HDR+5, HDR+6, HDR+8, HDR+13
$$C^XBFUNC HDR+1
VIEWR^XBLM DEV+3
EN^XBVK DEV+3, K+1
$$FMTE^XLFDT P3+4, HDR+20
$$REPEAT^XLFSTR START+4, BOT+22

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7,!,"Please queue to system printers."
  • Line Location: DEV+9
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+2
Function Call: WRITE
  • Prompt: @IOF,!,"|",ACHS("-"),"|",!,"|",$$C^XBFUNC("CATASTROPHIC HEALTH EMERGENCY FUND REIMBURSEMENT REQUEST",76),?78,"|"
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,"|1. AREA",?30,"|2. ORDERING FACILITY",?60,"|3. CHEF NUMBER",?78,"|"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,"|",$$VAL^XBDIQ1(9999999.06,DUZ(2),.04)
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: ?30,"|",$$VAL^XBDIQ1(9999999.06,DUZ(2),.01)
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: ?60,"|",$$VAL^XBDIQ1(9002064.11,.DA,.01)
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: ?78,"|"
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !,"|4. PATIENT NAME",?30,"|5. DATE OF BIRTH",?60,"|6. SEX M/F",?78,"|"
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: !,"|",$$VAL^XBDIQ1(2,DFN,.01)
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: ?30,"|",$$DOB^AUPNPAT(DFN,"E")
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: ?60,"|",$$SEX^AUPNPAT(DFN),?78,"|"
  • Line Location: HDR+15
Function Call: WRITE
  • Prompt: $P(^AUTTTRI($P(^AUPNPAT(DFN,11),U,08),0),U,2)
  • Line Location: HDR+19
Function Call: WRITE
  • Prompt: ?20,"|8. EPISODE OF CARE ",$$FMTE^XLFDT(ACHSEOCB)," TO ",$$FMTE^XLFDT(ACHSEOCE),?78,"|"
  • Line Location: HDR+20
Function Call: WRITE
  • Prompt: !,"|9. DX,ICD CM, OR , DRG#",?25,"|10. CAT. CODE",?39,"|11. TRAUMA CD",?54,"|12. MEDICAL PRIORITY",?78,"|"
  • Line Location: HDR+23
Function Call: WRITE
  • Prompt: !,"|",$E(ACHSDRG,2,23),?25,"|",?39,"|",?54,"|",?64,$P(ACHSMPRI,",",2),?78,"|"
  • Line Location: HDR+26
Function Call: WRITE
  • Prompt: !,"|12. ALTERNATE RESOURCES",?26,"|13. CONTRACT SOURCE",?48,"|14. EPISODE OF CARE",?78,"|"
  • Line Location: HDR+34
Function Call: WRITE
  • Prompt: !,"|I hereby certify that the information and costs listed are associated with",?78,"|",!,"|this catastrophic illness/incident, and that case management has been",?78,"|"
  • Line Location: BOT+9
Function Call: WRITE
  • Prompt: !,"|performed. 42.CFR SEC 136 HAS BEEN MET.",?78,"|"
  • Line Location: BOT+10
Function Call: WRITE
  • Prompt: !,"|26. SRVC UNIT DIRECTOR / Date",?30,"|27. CASE MANAGER / Date",?57,"|28. AREA CERT / Date",?78,"|"
  • Line Location: BOT+12
Function Call: WRITE
  • Prompt: !,"|",?30,"|",?57,"|",?78,"|"
  • Line Location: BOT+13
Function Call: WRITE
  • Prompt: !,"|29. AREA CHSO APPROVAL / Date",?30,"|30. REMARKS: ",$E(ACHSREM,1,33)
  • Line Location: BOT+18
Function Call: WRITE
  • Prompt: ?78,"|"
  • Line Location: BOT+19
Function Call: WRITE
  • Prompt: !,"|",?30,"|",$E(ACHSREM,34,79)
  • Line Location: BOT+20
Function Call: WRITE
  • Prompt: ?78,"|"
  • Line Location: BOT+21
Function Call: WRITE
  • Prompt: !,"|",$$REPEAT^XLFSTR("-",77),?78,"|"
  • Line Location: BOT+22
Function Call: WRITE
  • Prompt: !,"|TRAUMA CAUSE CODE: MV=MOTORVEHICLE, F=FALL, S=SUICIDE,",?78,"|",!,"|A=ASSAULT, B=BURN, D=DROWNING, O=OTHER, U=UNKNOWN",?78,"|"
  • Line Location: BOT+23
Function Call: WRITE
  • Prompt: !,"|* indicates provider is a contract source",?78,"|"
  • Line Location: BOT+24
Function Call: WRITE
  • Prompt: !,"|",ACHS("-"),"|"
  • Line Location: LN+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV+6
Routine Call
  • %ZIS
  • Line Location:
    • DEV+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHSCHEF - [#9002064.1] DEV+10, START+5, START+15, B1+1, B1+3, B1+4, A1+2, A1+4, A1+5, BOT+1
, BOT+5, BOT+6, BOT+7
^ACHSF - [#9002080] START+6, START+11, START+13, B1+5, P2+4, P3+4
^AUPNPAT - [#9000001] HDR+19
^AUTTTRI - [#9999999.03] HDR+19
^ICD - [#80.2] START+8
^TMP("ACHSCHF" START+2!, P1+1, P2+1, P3+1, P3+3, P3+5, P3+6, P3+7, P3+8, P3+9
, PB+2, PB+4, PB+5, PB+6, K+2!

Label References

Name Line Occurrences
BOT P2+3
DEV DEV+9, DEV+13
END P1+2, P1+4
HDR P1+3
K DEV+2, DEV+3, DEV+6, DEV+15
LN HDR+2, HDR+10, HDR+16, HDR+21, HDR+27, HDR+37, BOT+8, BOT+11, BOT+14, BOT+25
P1 P2+3
P2 P3+2
P3 P3+10
PB P2+3
START DEV+7

Naked Globals

Name Field # of Occurrence
^( PB+4, PB+6
^(0 A1+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DEV+1*, DEV+2, DEV+3, DEV+11*
>> %ZIS DEV+4*
>> ACHS B1+2*, B1+3*, A1+3*, A1+4*, A1+5, PB+1*, PB+2*, PB+4, PB+5, PB+6
>> ACHS("-" START+4*, HDR+1, LN+1
>> ACHS("IPD" START+3*
>> ACHS("PD" P1+5*
>> ACHS("TAO" P1+5*
>> ACHSAMT A1+5*, A1+6, A1+7
>> ACHSCHEF ACHSCHF1+8*, DEV+10, START+5, START+15, B1+1, B1+3, B1+4, A1+2, A1+4, A1+5
, HDR+7, BOT+1, BOT+5, BOT+6, BOT+7
>> ACHSDIEN START+6*, START+11, START+13, B1+5*, B1+6, P1+5*, P2+1*, P2+3, P2+4, P3+1
, P3+3, P3+4, P3+5, P3+6, P3+7, P3+8, P3+9
>> ACHSDOCR START+11*, P2+4*
>> ACHSDOS P2+5*, P3+4*, PB+3*
>> ACHSDRG START+4*, START+8*, HDR+26
>> ACHSDTP PB+6*
>> ACHSEOCB START+4*, START+9*, HDR+20
>> ACHSEOCE START+4*, START+10*, HDR+20
>> ACHSMPRI START+4*, START+7*, HDR+26
>> ACHSP3RD P2+5*, P3+9*
>> ACHSPCNT START+15*
>> ACHSPD P2+5*, P3+7*, P3+8*, PB+6*, PB+7*
>> ACHSPO START+4*, START+5*, START+6, B1+4*, B1+5, B1+6, PB+4*
>> ACHSPROV PB+4*
>> ACHSQUIT P1+4, HDR+30, BOT+3
ACHSREM K+2!, BOT+4*, BOT+7*, BOT+18, BOT+20
>> ACHSST A1+5*, A1+6
>> ACHSTAB START+4*, HDR+32*, HDR+39*
>> ACHSTAO P2+5*, P3+5*, P3+6*, PB+5*, PB+7
>> ACHSTIEN START+12*, START+13*, P2+5*, P3+1*, P3+2, P3+3, P3+4, P3+5, P3+6, P3+7
, P3+8, P3+9
>> ACHSTODA START+4*
>> ACHSTOTA A1+1*, A1+7*
>> ACHSTOTL BOT+1*
>> ACHSTOTR A1+1*, A1+6*
>> ACHSTRAN START+13*, P3+3*, P3+4, P3+5, P3+6, P3+7, P3+8, P3+9
DA K+2!, HDR+7*, HDR+8
DA(1 HDR+7*
DFN A1+9*, P1+1*, P1+2, P2+1, P3+1, P3+3, P3+5, P3+6, P3+7, P3+8
, P3+9, PB+2, PB+4, PB+5, PB+6, K+2!, HDR+13, HDR+14, HDR+15, HDR+19
DR K+2!
>> DTOUT DEV+2
>> DUOUT DEV+2
DUZ(2 DEV+10, START+5, START+6, START+11, START+13, START+15, B1+1, B1+3, B1+4, B1+5
, A1+2, A1+4, A1+5, P2+4, P3+4, HDR+5, HDR+6, HDR+7, BOT+1, BOT+5
, BOT+6, BOT+7
IO A1+10
IO("Q" DEV+7, DEV+8!
IO("S" DEV+9
IOF END+2, HDR+1
IOST DEV+9
>> POP DEV+6
U DEV+2, DEV+10, START+8, START+13, START+15, A1+5, P3+4, P3+5, P3+6, P3+7
, P3+8, P3+9, PB+4, PB+5, PB+6, HDR+19, BOT+1
X K+2!, BOT+6*, BOT+7
>> Y ACHSCHF1+7, ACHSCHF1+8
>> ZTDESC DEV+10*
>> ZTRTN DEV+10*
>> ZTSAVE( DEV+11*
ZTSK DEV+13, DEV+14!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All