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

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSMD0

Information

Source Information

Call Graph

Call Graph Total: 18

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: