Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: DGANHD4

Package: Registration

Routine: DGANHD4


Information

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

Source Information

Source file <DGANHD4.m>

Entry Points

Name Comments DBIA/ICR reference
Q
SET ;Set Tab Variable for Print
PRT ;Print AMIS Segment
FLD ;Print Field for AMIS Segment
HD
LEG
CRCHK

Interaction Calls

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
Info |  Source |  Entry Points |  Interaction Calls