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: ACHSCHF

Package: Contract Health Management Information System

Routine: ACHSCHF


Information

ACHSCHF ; IHS/ITSC/TPF/PMF - C H E F REIMBURSEMENT SEARCHES ;

Source Information

Source file <ACHSCHF.m>

Call Graph

Call Graph Total: 16

Package Total Call Graph
Contract Health Management Information System 6 ($$DATE,$$DOC,$$EBB,$$HRN,$$LOC,$$PARM,ERPT,RTRN)^ACHS  (BRPT,READ,SLV)^ACHSFU  EN^ACHSRP31  ^ACHSUCN  FC^ACHSUF  ^ACHSVAR  
Kernel 5 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  $$REPEAT^XLFSTR  
IHS VA Utilities 3 $$DIR^XBDIR  $$C^XBFUNC  EN^XBVK  
IHS Patient 1 (,KILL)^AUPNPAT  
VA Fileman 1 WAIT^DICD  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Contract Health Management Information System 2 ACHSCHF1  ACHSRPTCHEF  

Entry Points

Name Comments DBIA/ICR reference
POSUM2 ;EP - FOR BLANKETS AND SLO ;ACHS*3.1*16 11.09.2009 IHS.OIT.FCJ
HDR ;
DEV ; Select device/ztload.
DATE ;
P1 ;
POSUM ;EP - Add one PO.
PRINT ;
PAT ;EP - Print summary patient info.
SET ;EP - Set work values.
SETBS ;EP -Set work values for blankets and SLO ;ACHS*3.1*16 11.9.2009 IHS.OIT.FCJ
P2 ;
P3 ;
B ; Input type of service.
END ; Ask RTRN, write IOF.
H ;EP
K ;EP - Kill vars, do ERPT, quit.
START ;EP - From TaskMan.
TODA ; Input total obl/disbursement amt.
DIEN ;
BDT ; Input begin date.
TRAN ; Process transaction.
EDT ; Input End date.
B3 ;

External References

Name Field # of Occurrence
^%ZIS DEV+2
HOME^%ZIS DEV+3
^%ZISC DEV+6
^%ZTLOAD DEV+9
$$DATE^ACHS BDT+1, EDT+1
$$DOC^ACHS DIEN+3, SET+1
$$EBB^ACHS EDT+2
$$HRN^ACHS HDR+4
$$LOC^ACHS START+8
$$PARM^ACHS ACHSCHF+5
ERPT^ACHS K+5
RTRN^ACHS PAT+14
BRPT^ACHSFU START+7
READ^ACHSFU B+5
SLV^ACHSFU DEV+2
EN^ACHSRP31 HDR+5
^ACHSUCN POSUM+2
FC^ACHSUF START+2
^ACHSVAR K+1
^AUPNPAT HDR+2
KILL^AUPNPAT K+5
WAIT^DICD START+7
$$DIR^XBDIR TODA+2
$$C^XBFUNC START+5, START+6, HDR+3
EN^XBVK K+1
$$FMTE^XLFDT DEV+7, START+5, P3+4, HDR+4, POSUM2+5
$$REPEAT^XLFSTR PAT+2, PAT+4, PAT+5, PAT+6, PAT+9, PAT+10, PAT+11, PAT+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,"$",$FN(ACHSTODA,",",2)
  • Line Location: TODA+4
Function Call: WRITE
  • Prompt: !!,"TYPE of service:"
  • Line Location: B+1
Function Call: WRITE
  • Prompt: ?20,$P(ACHS(ACHS),":",1)," ",$P(ACHS(ACHS),":",2),!
  • Line Location: B+3
Function Call: WRITE
  • Prompt: !,"Select TYPE of service (1 - ",ACHS-1," 'A' = 'ALL') ALL // "
  • Line Location: B+4
Function Call: WRITE
  • Prompt: !!,"Enter an ""A"" to view documents for all types of service,",!,"otherwise, enter a number from 1 to ",ACHS-1,".",!
  • Line Location: B+9
Function Call: WRITE
  • Prompt: *7,!,"Please queue to system printers."
  • Line Location: DEV+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+1
Function Call: WRITE
  • Prompt: @IOF,!,ACHS("*"),!,$$C^XBFUNC("CATASTROPHIC HEALTH EMERGENCY FUND REIMBURSEMENT SEARCH"),!,ACHS("*"),!,ACHSTIME,!,ACHST2,!,ACHST3,!,ACHS("*")
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !!,$P($G(^DPT(DFN,0)),U),!,$S(SEX="F":"Female",SEX="M":"Male",1:"<sex missing>"),", born ",$$FMTE^XLFDT(DOB),", SSN: ",SSN,", HRN: ",$$HRN^ACHS(DFN,DUZ(2))
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,"|13. PROVIDER",?18,"|14. DOS",?31,"|15. P.O. #",?43,"|16. OBL",?54,"|17. PAID",?65,"|18. DATE PD",?78,"|"
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !,"|-----------------",?18,"|------------",?31,"|-----------",?43,"|----------",?54,"|----------",?65,"|------------|"
  • Line Location: H+3
Function Call: WRITE
  • Prompt: !,"|",ACHSPROV
  • Line Location: POSUM2+1
Function Call: WRITE
  • Prompt: ?18,"|",ACHSDOS,?31,"|",ACHSPO,?43,"|",$J($FN(ACHSTAO,",",2),10),?54,"|",$J($FN(ACHSPD,",",2),10)
  • Line Location: POSUM2+3
Function Call: WRITE
  • Prompt: ?65,"|",$$FMTE^XLFDT(ACHSDTP),?78,"|"
  • Line Location: POSUM2+5
Function Call: WRITE
  • Prompt: !,"|",$$REPEAT^XLFSTR("-",42),"|==========|==========|------------",?78,"|",!,"|19. SUB-TOTALS",$$REPEAT^XLFSTR(".",28),?43,"|",$J($FN(ACHS("TAO"),",",2),10),?54,"|",$J($FN(ACHS("PD"),",",2),10),?65,"|",?78,"|"
  • Line Location: PAT+2
Function Call: WRITE
  • Prompt: !,"|------------------------------------------",?43,"|----------",?54,"|----------",?65,"|------------|"
  • Line Location: PAT+3
Function Call: WRITE
  • Prompt: !,"|20. TOTAL IHS COSTS",$$REPEAT^XLFSTR(".",23),?43,"|",?54,"|",$J($FN(ACHS("IPD"),",",2),10),?65,"|",?78,"|"
  • Line Location: PAT+4
Function Call: WRITE
  • Prompt: !,"|21. LESS THRESHOLD",$$REPEAT^XLFSTR(".",24),?43,"|",?54,"|",$J($FN(ACHSTODA,",",2),10),?65,"|",?78,"|"
  • Line Location: PAT+5
Function Call: WRITE
  • Prompt: !,"|22. NET ELIGIBLE FROM FUND",$$REPEAT^XLFSTR(".",16),?43,"|",?54,"|",$J($FN(ACHS("IPD")-ACHSTODA,",",2),10),?65,"|",?78,"|"
  • Line Location: PAT+6
Function Call: WRITE
  • Prompt: !,"|22.a PERCENT OF LINE 22 TO BE REIMBURSED",$$REPEAT^XLFSTR(".",2),?43,"|",?54,"|",$J($FN(ACHSPCNT*((ACHS("IPD")-ACHSTODA)),",",2),10),?65,"|",?78,"|"
  • Line Location: PAT+9
Function Call: WRITE
  • Prompt: !,"|23. LESS ADVANCES TO DATE",$$REPEAT^XLFSTR(".",17),"|",?54,"|",$J($FN(($G(ACHSTOTL)+$G(ACHSTOTR)),",",2),10),?65,"|",?78,"|"
  • Line Location: PAT+10
Function Call: WRITE
  • Prompt: !,"|24. LESS AMENDMENTS PENDING PAYMENT",$$REPEAT^XLFSTR(".",7),"|",?54,"|",$J($FN($G(ACHSTOTA),",",2),10),?65,"|",?78,"|"
  • Line Location: PAT+11
Function Call: WRITE
  • Prompt: !,"|25. TOTAL REQUESTED AMOUNT",$$REPEAT^XLFSTR(".",16),?20,"|",?54,"|",$J($FN(ACHSPCNT*(ACHS("IPD")-ACHSTODA)-$G(ACHSTOTL)-$G(ACHSTOTA)-$G(ACHSTOTR),",",2),10),?65,"|",?78,"|"
  • Line Location: PAT+12
Routine Call
  • %ZIS
  • Line Location:
    • DEV+3
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHSCHEF - [#9002064.1] SETBS+1, SETBS+8, SETBS+10
^ACHSF - [#9002080] DATE+1, TRAN+1, DIEN+1, DIEN+4, SET+2, SET+3, SET+5, SET+6, SET+7, SETBS+3
, P2+4, P3+4, POSUM+6
^AUTTVNDR - [#9999999.11] SETBS+6, POSUM+3
^DD(9002080.01 B+2, START+6
^DPT - [#2] HDR+4
^TMP("ACHSCHF" START+1!, SET+3*, SET+4, SET+5*, SET+6*, SET+7*, SETBS+2, SETBS+8*, SETBS+9*, SETBS+10*
, P1+1, P1+3, P2+1, P3+1, P3+3, P3+5, P3+6, P3+7, P3+8, P3+9
, K+4!

Label References

Name Line Occurrences
B B+9
B3 B+8
BDT EDT+2, B+8
DATE TRAN+2
DEV DEV+6, DEV+10
DIEN DIEN+3, DIEN+5
END P1+2, P2+3
HDR P1+4
K TODA+3, BDT+2, EDT+2, DEV+3, DEV+12, START+3
P1 P1+3, P2+3
P2 P3+2
P3 P3+10
PAT P2+3
POSUM P3+2
PRINT DATE+2
SET DIEN+4
START DEV+4
TODA BDT+2
TRAN START+11, DIEN+2

Naked Globals

Name Field # of Occurrence
^(0 SET+3, SET+4*, SETBS+2*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DEV+8*
>> %ZIS DEV+1*
ACHS B+3*, B+4, B+9, SETBS+8, SETBS+9, SETBS+10, K+3!
ACHS( B+3*
ACHS("*" HDR+3
ACHS("IPD" P1+6*, K+3!, POSUM2+8*, PAT+4, PAT+6, PAT+9, PAT+12
ACHS("PD" P1+6*, POSUM2+6*, PAT+2
ACHS("TAO" P1+6*, POSUM2+6*, PAT+2
ACHS("_" START+4*
ACHSACO POSUM+1*, POSUM2+9!
>> ACHSBDT BDT+1*, BDT+2, EDT+2, DEV+7, START+5, DATE+1*, DATE+2, TRAN+1, DIEN+1, DIEN+4
>> ACHSCHEF SETBS+1, SETBS+8, SETBS+10
>> ACHSDIEN TRAN+3*, DIEN+1*, DIEN+2, DIEN+4, SET+2, SET+3, SET+5, SET+6, SET+7, SETBS+3
, P1+6*, P2+1*, P2+3, P2+4, P3+1, P3+3, P3+4, P3+5, P3+6, P3+7
, P3+8, P3+9, POSUM+6
>> ACHSDOCR P2+4*, POSUM+1, POSUM+5
>> ACHSDOS P2+5*, P3+4*, POSUM2+3
>> ACHSDTP POSUM+6*, POSUM2+5
ACHSEDOS POSUM+1*, POSUM2+9!
>> ACHSEDT EDT+1*, EDT+2, DEV+7, START+5, DATE+2
>> ACHSERR START+3
>> ACHSFC POSUM+5
>> ACHSIO ACHSCHF+5*
>> ACHSLOC START+8*
>> ACHSP3RD P2+5*, P3+9*
ACHSPCNT K+3!, PAT+8*, PAT+9, PAT+12
>> ACHSPD P2+5*, P3+7*, P3+8*, POSUM2+3, POSUM2+6, POSUM2+8
>> ACHSPO POSUM+5*, POSUM2+3
>> ACHSPPO START+9
ACHSPROV SETBS+3*, SETBS+6*, SETBS+9, POSUM+1*, POSUM+3*, POSUM+4*, POSUM2+1, POSUM2+9!
>> ACHSQUIT P2+3
>> ACHSRPT B3+1*, DEV+7, START+6, DIEN+3
>> ACHSSTS START+6*
>> ACHST2 START+5*, HDR+3
>> ACHST3 START+6*, HDR+3
>> ACHSTAB START+4*
>> ACHSTAO P2+5*, P3+5*, P3+6*, POSUM2+3, POSUM2+6, POSUM2+8
>> ACHSTIEN DIEN+4*, SET+2, SET+3, SET+5, SET+6, SET+7, P2+5*, P3+1*, P3+2, P3+3
, P3+4, P3+5, P3+6, P3+7, P3+8, P3+9
>> ACHSTIME HDR+3
>> ACHSTODA ACHSCHF+5*, TODA+2*, TODA+4, START+6, P1+3, PAT+5, PAT+6, PAT+9, PAT+12
>> ACHSTOS B+2*, B+3, START+6*
>> ACHSTOTA PAT+11, PAT+12
>> ACHSTOTL PAT+10, PAT+12
>> ACHSTOTR PAT+10, PAT+12
>> ACHSTRA0 SET+2*
>> ACHSTRAN START+10*, DATE+3*, TRAN+1*, TRAN+2, DIEN+1, DIEN+4, SET+3, SET+5, SET+6, P3+3*
, P3+4, P3+5, P3+6, P3+7, P3+8, P3+9
C POSUM+4, POSUM2+9!
DA K+3!
DFN SET+1*, SET+3, SET+4, SET+5, SET+6, SET+7, SETBS+1*, SETBS+2, SETBS+8, SETBS+9
, SETBS+10, PRINT+1*, P1+1*, P1+2, P1+3, P2+1, P3+1, P3+3, P3+5, P3+6
, P3+7, P3+8, P3+9, K+3!, HDR+1, HDR+4
>> DOB HDR+4
DR K+3!
DT POSUM+1
>> DTOUT TODA+3, BDT+2, EDT+2, B+6
>> DUOUT TODA+3, BDT+2, EDT+2, B+8
DUZ(2 DATE+1, TRAN+1, DIEN+1, DIEN+4, SET+2, SET+3, SET+5, SET+6, SET+7, SETBS+1
, SETBS+3, SETBS+8, SETBS+10, P2+4, P3+4, HDR+4, POSUM+6
IO ACHSCHF+5
IO("Q" DEV+4, DEV+5!
IO("S" DEV+2, DEV+6, START+9
IOF END+1, HDR+3
IOST DEV+6
>> POP DEV+3
>> SEX HDR+4
>> SSN HDR+4
U B+2, START+6, DIEN+4, SET+3, SET+5, SET+6, SET+7, SETBS+1, SETBS+3, SETBS+6
, SETBS+9, SETBS+10, P1+3, P3+4, P3+5, P3+6, P3+7, P3+8, P3+9, HDR+4
, POSUM+1, POSUM+3, POSUM+5, POSUM+6
>> X2 START+6*
>> X3 START+6*
>> Y TODA+1*, TODA+2, B+7*, B+8, B+9, B3+1, HDR+1*
>> Y(1 TODA+1*
>> ZTDESC DEV+7*
>> ZTQUEUED START+7
>> ZTRTN DEV+7*
>> ZTSAVE( DEV+8*
ZTSK DEV+10, DEV+11!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All