Routine: DGANHD4

Information

DGANHD4 ;ALB/RMO - Print NHCU and DOM AMIS's 345-346 ; 01 SEP 90 10:47 am

Source file <DGANHD4.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"(",$P(DGFLD,"^"),") ",$P(DGFLD,"^",2),?38 Line Location: FLD+1
Function Call: WRITE	Prompt: $J(+$P(^(I),"^",+DGFLD),DGTAB-2) Line Location: FLD+2
Function Call: WRITE	Prompt: @IOF,!?30,"AMIS ",DGSEG," REPORT" Line Location: HD+0
Function Call: WRITE	Prompt: ?60,"DATE: ",Y Line Location: HD+0
Function Call: WRITE	Prompt: !?30,$S(DGSEG=345:"NURSING HOME",DGSEG=346:"DOMICILIARY",1:"UNKNOWN") Line Location: HD+1
Function Call: WRITE	Prompt: !?32,"for ",Y Line Location: HD+2
Function Call: WRITE	Prompt: $J($E($S($D(^DG(40.8,I,0)):$P(^(0),"^"),1:"UNKNOWN"),1,DGTAB-2),DGTAB) Line Location: HD+3
Function Call: WRITE	Prompt: !,DGLNE Line Location: HD+4
Function Call: WRITE	Prompt: !,DGLNE,!,"FOR THIS SEGMENT FIELDS SHOULD BALANCE AS FOLLOWS:" Line Location: LEG+0
Function Call: WRITE	Prompt: !!,?3,"Fields 009 and 010 prior period plus 001,002,003,004 current period" Line Location: LEG+1
Function Call: WRITE	Prompt: !,?3,"less fields 005 thru 008 current period must equal fields",!?3,"009 and 010 current period." Line Location: LEG+2
Function Call: WRITE	Prompt: !!,"* This segment ",$S($P(^(0),"^",2)="":"has Not been Balanced",1:"is Out of Balance"),". *" Line Location: LEG+3
Function Call: WRITE	Prompt: !,DGLNE Line Location: LEG+4
Function Call: READ	Variable: X Timeout: DTIME Line Location: CRCHK+0