Routine: AZAMLOD1

Entry Points

Name	Comments	DBIA/ICR reference
TASK	;
END	; -- write the final message
CTRM	; -- check the terminal to make sure it's not a LAT device
S	;I $V(2$P+$V(5,-5),-3,2)/4+$V(272,-4)=$J,$ZB($V($V($P4+$V(7,-5))+20,-3,4),#10000000,1) D
ASKA	; -- ask if they are sure
ASKB	; -- ask about current medicaid file
CTM	; -- check to make sure this is after hours (after 4:00pm)
MAIN	; -- this is the main program loop
LOOP	; -- this is the actual process

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"You are logged into a LAT device." Line Location: S+1
Function Call: WRITE	Prompt: !,"Please log into a UNIX device to run this!!" Line Location: S+2
Function Call: WRITE	Prompt: !!!,"This can only be started between the hours of 4pm and 12am!!" Line Location: CTM+4
Function Call: WRITE	Prompt: !,"The file is now ready to upload" Line Location: ASKA+1
Function Call: WRITE	Prompt: !,"Running this process will delete the old exception file",! Line Location: ASKA+2
Function Call: WRITE	Prompt: !,"I will now get the most current file from the Area Office",! Line Location: ASKB+1
Function Call: WRITE	Prompt: !,"Getting the most current file from area now..." Line Location: ASKB+7
Function Call: WRITE	Prompt: !,"This could take up to 5 minutes, please stand by..." Line Location: ASKB+8
Function Call: WRITE	Prompt: !,"The file is now here!!" Line Location: ASKB+10
Function Call: WRITE	Prompt: !,"Now loading the State of Arizona Medicaid File....." Line Location: LOOP+1
Function Call: WRITE	Prompt: !!,"This process could take up to 8 hours, please QUE to run after 6pm." Line Location: LOOP+2
Routine Call	DIR Line Location: ASKA+4 ASKB+4