Routine: ACHSCHK

Information

ACHSCHK ; IHS/ITSC/PMF - PRINT 638 CHECKS (1/2) ; [ 10/16/2001 8:16 AM ]

Package	Total	Call Graph
Contract Health Management Information System	4	$$DOC^ACHS AMT^ACHSCHK1 (READ,SLV)^ACHSFU ^ACHSUSC
Kernel	2	^%ZIS ^%ZISC
VA Fileman	2	COMMA^%DTC EN^DIQ1

Package	Total	Caller Graph
Contract Health Management Information System	2	ACHS638CHECK1 ACHS638CHECKB

Name	Comments	DBIA/ICR reference
BCN	;
FORMAT	;42;;line #;;col #;;file # or MUMPS code;;field #;;DA;;sub-file #;;sub-file field #;;DA(sub-file #);;OUTPUT TRANSFORM
S1	;
PROVZIP	;;13;; ;;9999999.11;;1304;;ACHSPROV
DEV	;
K1	;
PATIENT2	;;28;;26;;9002080;;100;;DUZ(2);;9002080.01;;13.64;;ACHSDIEN
VALUE2	;
PROVCTY	;;13;;8;;9999999.11;;1302;;ACHSPROV
DATE	;;9;;54;;W $$FMTE^XLFDT(DT)
PAYAMT2	;;28;;67;;9002080;;100;;DUZ(2);;9002080.01;;15;;ACHSDIEN;;S X3=1 D COMMA^%DTC S X=$E("$$$$$$$$$$$$$",1,13-$L(X))_X K X3
PATIENT	;;5;;42;;9002080;;100;;DUZ(2);;9002080.01;;13.64;;ACHSDIEN
PROVSTR	;;12;;8;;9999999.11;;1301;;ACHSPROV
PROVST	;;13;; ;;9999999.11;;1303;;ACHSPROV
PROV2	;;29;;12;;9002080;;100;;DUZ(2);;9002080.01;;7;;ACHSDIEN;;S:X["," X=$P(X,",",2)_" "_$P(X,",")
POSITION	;
FMT	;
CHECK	;;2;;45;;W "CHECK #: ",$E(1000000000+ACHSBCN,2,10)
PAYTXT	;;8;;5;;9002080;;100;;DUZ(2);;9002080.01;;15;;ACHSDIEN;;S X3=1 D COMMA^%DTC,AMT^ACHSCHK1 K X3
K	;
DOLLAR	;
BATCH	;EP - From option.
VALUE	;
PONUM2	;;28;;12;;9002080;;100;;DUZ(2);;9002080.01;;.01;;ACHSDIEN
SVCDATE	;;27;;1;;9002080;;100;;DUZ(2);;9002080.01;;75;;ACHSDIEN
PAYAMT	;;10;;67;;9002080;;100;;DUZ(2);;9002080.01;;15;;ACHSDIEN;;S X3=1 D COMMA^%DTC S X=$E("$$$$$$$$$$$$$",1,13-$L(X))_X K X3
DOLLAR1	;
PONUM	;;5;;25;;9002080;;100;;DUZ(2);;9002080.01;;.01;;ACHSDIEN
BCN1	;
PROVIDER	;;11;;8;;9002080;;100;;DUZ(2);;9002080.01;;7;;ACHSDIEN;;S:X["," X=$P(X,",",2)_" "_$P(X,",")
TEST	;

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!!,"A CHECK HAS ALREADY BEEN PRINTED FOR THIS DOCUMENT" Line Location: ACHSCHK+8
Function Call: WRITE	Prompt: *7,!!,"Not a paid document OR pay amount is 0." Line Location: ACHSCHK+11
Function Call: WRITE	Prompt: ! Line Location: DEV+1
Function Call: WRITE	Prompt: !!,"ENTER THE ",$S($D(ACHSBAT):"BEGINNING ",1:""),"CHECK NUMBER : ",ACHSBCN,"//" Line Location: BCN+5
Function Call: WRITE	Prompt: *7," ??" Line Location: BCN+9
Function Call: WRITE	Prompt: *7,!,"THIS CHECK NUMBER HAS ALREADY BEEN USED" Line Location: BCN+12
Function Call: WRITE	Prompt: " ",ACHSBCN,!!,"READY TO START? N// " Line Location: BCN1+1
Function Call: WRITE	Prompt: ! Line Location: S1+4
Function Call: WRITE	Prompt: ! Line Location: POSITION+1
Function Call: WRITE	Prompt: X Line Location: VALUE2+2
Function Call: WRITE	Prompt: X Line Location: DOLLAR+5
Function Call: WRITE	Prompt: X Line Location: DOLLAR1+4
Function Call: WRITE	Prompt: "######" Line Location: TEST+4
Function Call: WRITE	Prompt: ! Line Location: TEST+5
Function Call: WRITE	Prompt: *7,!!,"NO CHECKS BATCHED TO PRINT." Line Location: BATCH+1
Routine Call	%ZIS Line Location: DEV+3

Name	Line Occurrences (* Changed, ! Killed)
^ACHS(7 - [#9002067]	S1+7!, S1+8, BATCH+1, BATCH+3
^ACHSF - [#9002080]	ACHSCHK+11, BCN+2, BCN+12, S1+5, S1+6, S1+8, S1+10, DOLLAR+1, DOLLAR1+1, BATCH+3 , BATCH+4
^UTILITY("DIQ1"	S1+1!, K1+1!

Name	Field # of Occurrence
^(	VALUE+6, VALUE+7
^(2	S1+5*

Name	Field # of Occurrence
>> %ZIS	DEV+2*
>> %ZIS("A"	DEV+2*
>> %ZIS("B"	DEV+2*
>> ACHS	S1+3, TEST+4
>> ACHSADJ	ACHSCHK+3*
ACHSBAT	BCN+5, S1+8, K1+1!, BATCH+5*
ACHSBCN	BCN+2, BCN+3, BCN+5, BCN+13, BCN1+1, S1+5, S1+6, S1+9, S1+10*, K1+1!
ACHSCLEN	DEV+7*, S1+4, K1+1!, TEST+5
ACHSCOL	K1+1!, FMT+2*, POSITION+2, POSITION+3
ACHSDIEN	ACHSCHK+5, ACHSCHK+6, ACHSCHK+8!, ACHSCHK+11, S1+5, S1+6, S1+7, S1+8, K1+1!, DOLLAR+1 , DOLLAR1+1, BATCH+2, BATCH+3*, BATCH+4
ACHSLINE	K1+1!, FMT+2*, POSITION+1
ACHSLPOS	S1+2, S1+4, K1+1!, POSITION+1, TEST+3, TEST+5*
ACHSOT	K1+1!, FMT+2, FMT+3, VALUE2+1
ACHSPPC	DEV+9, BCN+1, K+1, K1+1!
ACHSPPO	BCN1+5, K1+1!, TEST+1
>> ACHSPROV	BATCH+4*
>> ACHSQUIT	BCN+7, BCN1+3
ACHSWORK	S1+3, K1+1!, FMT+2, FMT+3, VALUE+2, VALUE+3, VALUE+6, VALUE+7, TEST+4
D0	K1+1!
D1	K1+1!
DA	K1+1!, FMT+1!, FMT+3*
DA(	FMT+3*
DIC	K1+1!, FMT+1!, FMT+2*, FMT+3, VALUE+1
DR	K1+1!, FMT+1!, FMT+3*
DR(	FMT+3*
DT	S1+5
>> DTOUT	DEV+9
>> DUOUT	DEV+9, BCN1+4
DUZ(2	ACHSCHK+11, BCN+2, BCN+12, S1+5, S1+6, S1+7, S1+8, S1+10, DOLLAR+1, DOLLAR1+1 , BATCH+1, BATCH+3, BATCH+4
IO	BCN1+6, TEST+2
IO("S"	DEV+3, DEV+9, BCN+1, BCN1+5, K+1, TEST+1
IO(0	DEV+9, BCN+4
>> POP	DEV+5
U	ACHSCHK+11, S1+5, S1+8, DOLLAR+1, DOLLAR1+1, BATCH+3, BATCH+4
>> X	VALUE+6, VALUE+7, VALUE2+2, DOLLAR+1, DOLLAR+3, DOLLAR+5, DOLLAR1+1*, DOLLAR1+4
X3	DOLLAR+1, DOLLAR+4!, DOLLAR1+1, DOLLAR1+3!
>> Y	DEV+9, BCN+2*, BCN+3, BCN+8, BCN+9, BCN+12, BCN+13, BCN1+4

Name	Field # of Occurrence
$T(@"FORMAT"	DEV+7
$T(@"FORMAT"+ACHS	S1+3, TEST+4