Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Registration 2 DGANHD1  DGANHD3  

Entry Points

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

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
  • Timeout: DTIME
  • Variable: X
  • Line Location: CRCHK+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" HD, HD+2
^DG(40.8 - [#40.8] HD+3
^DGAM(345 - [#42.7] LEG+3
^UTILITY($J DGANHD4+10, SET+1, FLD+2, HD+3

Label References

Name Line Occurrences
CRCHK HD, LEG
FLD PRT+2, PRT+3, PRT+4, PRT+5, PRT+6, PRT+7, PRT+8, PRT+9, PRT+10, PRT+11
, PRT+12, PRT+13, PRT+14, PRT+15, PRT+16, PRT+17, PRT+18
HD PRT+1, FLD+1
LEG PRT+19
PRT DGANHD4+10
SET DGANHD4+10

Naked Globals

Name Field # of Occurrence
^( FLD+2
^(0 HD+3, LEG+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DGDIVNB Q!, SET+1*, SET+2
DGFLD Q!, SET+1!, PRT+2*, PRT+3*, PRT+4*, PRT+5*, PRT+6*, PRT+7*, PRT+8*, PRT+9*
, PRT+10*, PRT+11*, PRT+12*, PRT+13*, PRT+14*, PRT+15*, PRT+16*, PRT+17*, PRT+18*, FLD+1
, FLD+2
DGIOM DGANHD4+9*, Q!
DGLNE DGANHD4+9*, Q!, HD+4, LEG, LEG+4
DGMAR DGANHD4+9*, Q!, SET+2
>> DGMYR DGANHD4+10, SET+1, FLD+2, HD+2, HD+3, LEG+3
DGPGE DGANHD4+9*, Q!, HD*, CRCHK
DGSEG DGANHD4+10*, Q!, SET+1, FLD+2, HD, HD+1, HD+3, LEG+3
DGTAB Q!, SET+2*, FLD+2, HD+3
DGX DGANHD4+9*, DGANHD4+10, Q!, PRT+1, PRT+2, PRT+3, PRT+4, PRT+5, PRT+6, PRT+7
, PRT+8, PRT+9, PRT+10, PRT+11, PRT+12, PRT+13, PRT+14, PRT+15, PRT+16, PRT+17
, PRT+18, FLD+1, HD, LEG, CRCHK*
DT HD
DTIME CRCHK
I Q!, SET+1*, FLD+2*, HD+3*
IOF HD
IOM DGANHD4+9
IOSL FLD+1, LEG
IOST CRCHK
X Q!, CRCHK*
Y Q!, HD*, HD+2*
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All