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 |  Local Variables |  All
Print Page as PDF
Routine: ACHSMD0

Package: Contract Health Management Information System

Routine: ACHSMD0


Information

ACHSMD0 ; IHS/ITSC/PMF - PRINT MASTER DELIVERY ORDER LIST (1/2) ; [ 02/19/2004 10:38 AM ]

Source Information

Source file <ACHSMD0.m>

Call Graph

Call Graph Total: 18

Package Total Call Graph
Contract Health Management Information System 8 ($$AOP,$$DIR,$$DOC,$$EBB,$$JDT,$$LOC,RTRN)^ACHS  ARCHLIST^ACHSARCH  EN^ACHSMD0A  (10,CHK16)^ACHSPS16  (ERROR,OPENHFS)^ACHSTCK1  TXLOGADD^ACHSTXUT  FC^ACHSUF  ^ACHSVAR  
Kernel 5 ^%ZIS  ^%ZISC  $$DEL^%ZISH  ($$FMTE,$$HTE)^XLFDT  $$REPEAT^XLFSTR  
IHS VA Utilities 3 $$DIR^XBDIR  $$C^XBFUNC  EN^XBVK  
IHS Patient 1 ^AUPNPAT  
VA Fileman 1 ^DIC  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Contract Health Management Information System 5 ACHS-HV-MDOL-REPORT  ACHS-REPORT-MAST-DEL-ORDER  ACHSHV01  ACHSMD2  ACHSMD2D  

Entry Points

Name Comments DBIA/ICR reference
HDR ;
FTR1A ;
NODIR ;EP - Display missing parameter message.
HELP2(Z,V) ;EP - From DIR. Z = Number of dates to display. V = Ptr to VENDOR.
A2A ; Generate transmission file Y/N.
BEND ;
DOS ; Date Of Service - MMDDYY
LINE ;
A15 ;
A10 ; $O thru document IENs.
A18 ; -- Print MDOL, Dental, AO Payments, or FI Payments.
A0 ;
A3 ; Select report date.
A2 ; Select HVP.
A5 ; Open file.
A7 ; Select printer.
BENDA ;
A9 ; $O thru Estimated Service dates.
B0 ; Loop thru work global.
SEL
FTR1 ;
HELP(Z,V) ;EP - From DIR. Z = Number of dates to display. V = Ptr to VENDOR.
CANREQ ;
START ;
A8 ;
R(X,Y)
SETHDR ;
A9A ; $O thru Date of Issue.
EXIT ; Kill vars, quit.
B1 ;
HVP() ;EP - Select HVP.

External References

Name Field # of Occurrence
^%ZIS A7+4
^%ZISC A15+3, A15+6
$$DEL^%ZISH A5+4
$$AOP^ACHS A2A+4, A5+1, A5+3, A5+4
$$DIR^ACHS SEL+2
$$DOC^ACHS DOS+1, DOS+18, DOS+21
$$EBB^ACHS A3+12
$$JDT^ACHS A3+13
$$LOC^ACHS HDR+1
RTRN^ACHS A0+1, A0+2, A15+12, CANREQ+3, HELP+5, HELP2+5, B1+13, BENDA+6
ARCHLIST^ACHSARCH A5+2
EN^ACHSMD0A DOS+21
10^ACHSPS16 A15+2
CHK16^ACHSPS16 A7+8
ERROR^ACHSTCK1 A5+7
OPENHFS^ACHSTCK1 A5+6
TXLOGADD^ACHSTXUT A15+8
FC^ACHSUF DOS+5
^ACHSVAR EXIT+2
^AUPNPAT LINE+6
^DIC HVP+3
$$DIR^XBDIR A3+3, A3+6, A3+9, A3+10, A2A+1, A2A+7, A7+11
$$C^XBFUNC NODIR+2, NODIR+3, NODIR+4, NODIR+5, HDR+1, HDR+2, HDR+3, HDR+7
EN^XBVK EXIT+2
$$FMTE^XLFDT A3+8, A3+9, A3+10, HELP+5, HELP2+5, HDR+7
$$HTE^XLFDT A7+7
$$REPEAT^XLFSTR R

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,*7,?5,"No High Volume Providers for this Facility"
  • Line Location: A0+1
Function Call: WRITE
  • Prompt: !!,*7,?5,"No MDOL Documents (Orders) Have been entered."
  • Line Location: A0+2
Function Call: WRITE
  • Prompt: !!,*7,"No Vendor Selected"
  • Line Location: A2+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: A2+5
Function Call: WRITE
  • Prompt: !!?20,"1) Print Report by Date of Service"
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: !?20,"2) Print Report by Date of Issue"
  • Line Location: SEL+1
Function Call: WRITE
  • Prompt: !!,*7,?5,"No Documents (Orders) Available to Print on ",$$FMTE^XLFDT(ACHSRDAT)
  • Line Location: A3+8
Function Call: WRITE
  • Prompt: !
  • Line Location: A7+2
Function Call: WRITE
  • Prompt: !!,*7,"Device Right Margin < 132 Char -- Select another Device"
  • Line Location: A7+6
Function Call: WRITE
  • Prompt: !!?10,"Your Request is now being Processed",!
  • Line Location: A8+2
Function Call: WRITE
  • Prompt: @ACHS("PRINT",16)
  • Line Location: A8+3
Function Call: WRITE
  • Prompt: *7,!,"Entry NOT Successfully Posted to Data Tranmission Log - Notify Supervisor",!
  • Line Location: A15+11
Function Call: WRITE
  • Prompt: !!?20,"Request Cancelled"
  • Line Location: CANREQ+2
Function Call: WRITE
  • Prompt: !!,"Recent MDOL by date of Service for ",$P(^AUTTVNDR(ACHSVPTR,0),U)," :"
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: !!,"Recent MDOL by date of issue for ",$P(^AUTTVNDR(ACHSVPTR,0),U)," :"
  • Line Location: HELP2+3
Function Call: WRITE
  • Prompt: *7,!,$$C^XBFUNC("Your EOBR IMPORT DIRECTORY is not defined in your")
  • Line Location: NODIR+2
Function Call: WRITE
  • Prompt: !,$$C^XBFUNC("CHS AREA OFFICE PARAMETERS file.")
  • Line Location: NODIR+3
Function Call: WRITE
  • Prompt: !,$$C^XBFUNC("The directory is usually"),!,$$C^XBFUNC("/usr/ihs/reports/"),!,$$C^XBFUNC("for unix systems, and"),!,$$C^XBFUNC("C:\IMPORT\"),!,$$C^XBFUNC("for DOS systems.")
  • Line Location: NODIR+4
Function Call: WRITE
  • Prompt: !!,$$C^XBFUNC("( The same directory is used for HVP files. )")
  • Line Location: NODIR+5
Function Call: WRITE
  • Prompt: $S($P(ACHSX,U,3)=1:"** BLANKET **",1:"** SPEC TRAN **")
  • Line Location: LINE+1
Function Call: WRITE
  • Prompt: $J($P(ACHSX,U,21),6)
  • Line Location: LINE+3
Function Call: WRITE
  • Prompt: ?7,$E($P(^DPT(DFN,0),U),1,28)
  • Line Location: LINE+8
Function Call: WRITE
  • Prompt: ?34,$E(DOB,4,7),$E(DOB,1,3)+1700
  • Line Location: LINE+10
Function Call: WRITE
  • Prompt: ?43,SEX
  • Line Location: LINE+12
Function Call: WRITE
  • Prompt: ?45,$P(^AUTTTRI($P(^AUPNPAT(DFN,11),U,8),0),U,2)
  • Line Location: LINE+14
Function Call: WRITE
  • Prompt: ?49,SSN
  • Line Location: LINE+16
Function Call: WRITE
  • Prompt: ?59,$E(%,5,7),$E(%,3,4),$E(%,1,2)
  • Line Location: LINE+21
Function Call: WRITE
  • Prompt: ?67,%
  • Line Location: DOS+2
Function Call: WRITE
  • Prompt: ?74,$P(ACHSX,U,14)_ACHSFC_"-"_$P(ACHSX,U)
  • Line Location: DOS+6
Function Call: WRITE
  • Prompt: ?85,$J(X,10,2)
  • Line Location: DOS+10
Function Call: WRITE
  • Prompt: ?96,"000"
  • Line Location: DOS+15
Function Call: WRITE
  • Prompt: ?100,$$DOC^ACHS(1,3)
  • Line Location: DOS+18
Function Call: WRITE
  • Prompt: !
  • Line Location: DOS+22
Function Call: WRITE
  • Prompt: !!
  • Line Location: BENDA+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: BENDA+5
Function Call: WRITE
  • Prompt: @IOF,$$C^XBFUNC("MASTER DELIVERY ORDER LISTING FOR: "_$$LOC^ACHS,IOM),!
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: $$C^XBFUNC("BY DATE OF ESTIMATED SERVICE",IOM),!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: $$C^XBFUNC("BY DATE OF ISSUE",IOM),!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !?2,ACHSRDT,?IOM-$L(X)/2,X,?IOM-10,"Page ",ACHSPGNO
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,$$C^XBFUNC(X_$$FMTE^XLFDT(ACHSRDAT)_" - "_$$FMTE^XLFDT(ACHSEDAT),IOM),!!
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: "IHS #",?16,"PATIENT NAME",?38,"DOB",?43,"S",?45,"TRB",?49,"SOC SEC #",?59,"COMM-CD",?67,"ESTDOS",?74,"PURCH OR #",?85,"EST. COST",?96,"COV",?100,"ACCT NO",!
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: $$R("-",6),?7,$$R("-",28),?36,$$R("-",6),?43,$$R("-",1),?45,$$R("-",3),?49,$$R("-",9),?59,$$R("-",7),?67,$$R("-",6),?74,$$R("-",10),?85,$$R("-",10),?96,$$R("-",3),?100,$$R("-",15),!
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !?40,"NO. ITEMS (THIS PAGE): ",$J(ACHSPNOT,3),?69,"SUB-TOTAL(THIS PAGE):",?95,$J($FN(ACHSPTOT,",",2),15)
  • Line Location: FTR1+1
Function Call: WRITE
  • Prompt: !?7,"TOTAL PAGES IN REPORT: ",$J(ACHSPGNO,3),?40,"NO ITEMS (ALL PAGES):",$J(ACHSGNOT,5),?69,"GRAND TOTAL(ALL PAGES):",?95,$J($FN(ACHSGTOT,",",2),15)
  • Line Location: FTR1+2
Function Call: WRITE
  • Prompt: !!," Date: ",$$R("_",13),?25,"Funds Available Signature:",?60,$$R("_",30),!!
  • Line Location: FTR1A+1
Function Call: WRITE
  • Prompt: " Date: ",$$R("_",13),?25,"Ordering Official Signature:",?60,$$R("_",30),!!
  • Line Location: FTR1A+2
Function Call: WRITE
  • Prompt: " Date: ",$$R("_",13),?25,"Vendor Services Received:",?60,$$R("_",30),!!
  • Line Location: FTR1A+3
Routine Call
  • DIC
  • Line Location:
    • HVP+3
Routine Call
  • %ZIS
  • Line Location:
    • A7+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHSF - [#9002080] A0+1, A0+2, A3+8, A9+2, A9+4, A9A+2, A9A+4, A9A+7, A10+3, HELP+4
, HELP+5, HELP2+4, HELP2+5, B1+6
^AFSTXLOG( A2A+6
^AUPNPAT - [#9000001] LINE+14, LINE+20, LINE+21
^AUTTCOM - [#9999999.05] LINE+21
^AUTTTRI - [#9999999.03] LINE+14
^AUTTVNDR - [#9999999.11] HELP+3, HELP2+3, HDR+4
^DPT - [#2] LINE+8
^TMP("ACHSMD0" START+1!, A10+7*, A10+10*, A18+1, B1+3, B1+5

Label References

Name Line Occurrences
$$HVP A2+1
$$R HDR+9, FTR1A+1, FTR1A+2, FTR1A+3
A0 A7+9, A7+11
A10 A9+5, A9A+7
A15 A9+1, A9A+1
A18 A15+1
A2A A2A+7, A2A+8
A3 A3+8, A3+12, A2A+2
A5 A2A+6
A7 A2A+3, A7+6
A8 A7+10
BEND B1+3
CANREQ A0+1, A0+2, A2+2, A2+3, A3+7, A3+11, A2A+4, A5+7, A7+5, A7+12
DOS LINE+1
EXIT SEL+3, A15+4, A15+9, A15+13
FTR1 B1+13, BEND+2, BEND+3, BENDA+3, BENDA+5
FTR1A B1+13, BENDA+3, BENDA+5
HDR A18+3, A18+4, B1+13
HELP A3+2
HELP2 A3+5
LINE B1+9, B1+11
NODIR A2A+4
SETHDR A18+3, B1+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LINE+18*, LINE+20*, LINE+21*, DOS+1*, DOS+2
>> %ZIS A7+3*
>> %ZIS("A" A7+3*
>> ACHS("PRINT" A7+10, A8+3, A15+2
>> ACHSCOST B1+10, DOS+11*
>> ACHSDIEN A9+3*, A9+4*, A9A+6*, A9A+7*, A10+3, A10+7, A10+10, A18+5*, B1+4*, B1+5*
, B1+6
>> ACHSDOS B1+2*, B1+3*, B1+5
>> ACHSEDAT A3+3*, A3+6*, A3+9*, A3+10*, A3+11, A3+12, A9+2, A9A+2, HDR+7
>> ACHSEXFS A15+7*
>> ACHSFC DOS+6
>> ACHSGNOT A0+3*, A15+1*, B1+12*, FTR1+2
>> ACHSGTOT A0+3*, A15+1*, B1+10*, FTR1+2
>> ACHSHFS1 A5+8*, A15+5, A18+4, B1+11, B1+13, BEND+3, BENDA+5
>> ACHSHVAB A2+4*, A2A+5, A5+1, A5+3, A5+4, A15+7
>> ACHSJDAT A3+13*, A2A+5, A5+3, A5+4, A15+7
>> ACHSLC A0+3*, A15+1*, B1+12*, B1+13
>> ACHSPGNO A0+3*, A15+1*, SETHDR+1*, HDR+5, FTR1+2
>> ACHSPNOT A0+3*, A15+1*, B1+12*, SETHDR+1*, FTR1+1
>> ACHSPTOT A0+3*, A15+1*, B1+10*, SETHDR+1*, FTR1+1
ACHSQUIT HELP+5, HELP+6!, HELP2+5, HELP2+6!
>> ACHSRDAT A3+3*, A3+6*, A3+7, A3+8, A3+12, A3+13, START+2, A18+5, HDR+7
>> ACHSRDT A7+7*, HDR+5
>> ACHSRPT SEL+2*, SEL+3, A3+1, A3+4, A3+8, A3+9, A3+10, A9+1, A9A+1, HDR+2
, HDR+3
>> ACHSRTYP A15+1*, A18+1, B1+3, B1+5, HDR+6
>> ACHSTFLG A0+3*, BENDA+1*, FTR1+1, FTR1+2
>> ACHSTXF A2A+1*, A2A+3, A15+4, A18+4, B1+11, B1+13, BEND+3, BENDA+5
>> ACHSTYP A9A+3*, A9A+4*, A9A+5, A9A+7, HELP2+2*, HELP2+4*, HELP2+5
>> ACHSVPTR A2+4*, A3+2, A3+5, HELP+3, HELP+5, HELP2+3, HELP2+5, B1+7, HDR+4
>> ACHSX A10+3*, A10+4, A10+7, A10+10, B1+6*, B1+7, LINE+1, LINE+3, LINE+5, DOS+6
, DOS+9, DOS+21
>> ACHSY A15+9
>> ACHSZDEV A5+8
>> ACHSZDIR A5+1*
>> ACHSZFN A5+1*, A5+3*
>> ACHSZIN A5+5*
>> ACHSZOPT A5+1*
>> ACHSZR START+2*, A9+2*, A9+4, A9A+2*, A9A+4, A9A+7, A10+10, A18+5*
>> ACHSZZA A5+7
DFN EXIT+1!, LINE+8, LINE+14, LINE+20, LINE+21
DIC EXIT+1!, HVP+2*
DIC(0 HVP+2*
DIR EXIT+1!
>> DOB LINE+10
DTOUT A2+2, A3+7, A3+11, A2A+2, A2A+8, HVP+1!, HVP+4
DUOUT A2+2, A3+7, A3+11, A2A+2, A2A+8, A7+9, HVP+1!, HVP+4
DUZ(2 A0+1, A0+2, A3+8, A2A+6, A9+2, A9+4, A9A+2, A9A+4, A9A+7, A10+3
, A10+7, A10+10, HELP+4, HELP+5, HELP2+4, HELP2+5, HVP+2, A18+1, B1+3, B1+5
, B1+6
IO A8+3, A15+2, A15+5*, A18+2, B1+8, B1+13, BEND+1, BENDA+2
IO(0 A7+1, A8+1, A15+10, CANREQ+1, NODIR+1
IOF HDR+1
IOM A7+6, HDR+1, HDR+2, HDR+3, HDR+5, HDR+7
>> POP A7+5
>> SEX LINE+12
>> SSN LINE+16
U A2+4, A10+4, A10+7, A10+10, HELP+3, HELP+5, HELP2+3, HELP2+5, B1+7, LINE+1
, LINE+3, LINE+5, LINE+8, LINE+14, LINE+21, DOS+6, DOS+9, DOS+21, HDR+4
V HELP~, HELP2~
X A2A+5*, A2A+6, HELP+1~, HELP+2*, HELP+4*, HELP+5, HELP2+1~, HELP2+2*, HELP2+4*, HELP2+5
, LINE+18*, LINE+20*, DOS+9*, DOS+10, DOS+11, HDR+4*, HDR+5, HDR+6*, HDR+7, R~
Y A2+1*, A2+3, A2+4, HELP+1~, HELP+2*, HELP+4, HELP+5*, HELP2+1~, HELP2+2*, HELP2+4
, HELP2+5*, HVP+4, LINE+5*, R~
Y(0 HVP+5
Z HELP~, HELP+4, HELP+5, HELP2~, HELP2+4, HELP2+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All