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: DGAINP4

Package: Registration

Routine: DGAINP4


Information

DGAINP4 ;ALB/RMO - Print Inpatient AMIS's 334-341 ; 27 DEC 89 1:37 pm

Source Information

Source file <DGAINP4.m>

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Registration 2 DGAINP1  DGAINP3  

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=334:"PSYCHIATRY",DGSEG=335:"INTERMEDIATE MEDICINE",DGSEG=336:"MEDICINE",DGSEG=337:"NEUROLOGY",DGSEG=338:"REHABILITATION MED",DGSEG=339:"BLIND REHABILITATION",DGSEG=340:"SPINAL CORD INJURY",DGSEG=341:"SURGERY",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 current period"
  • Line Location: LEG+1
Function Call: WRITE
  • Prompt: !,?3,"less fields 004 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(334 - [#42.6] LEG+3
^UTILITY($J DGAINP4+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
HD PRT+1, FLD+1
LEG PRT+18
PRT DGAINP4+10
SET DGAINP4+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!, 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*, FLD+1, FLD+2
DGIOM DGAINP4+9*, Q!
DGLNE DGAINP4+9*, Q!, HD+4, LEG, LEG+4
DGMAR DGAINP4+9*, Q!, SET+2
>> DGMYR DGAINP4+10, SET+1, FLD+2, HD+2, HD+3, LEG+3
DGPGE DGAINP4+9*, Q!, HD*, CRCHK
DGSEG DGAINP4+10*, Q!, SET+1, PRT+12, PRT+13, PRT+14, PRT+15, PRT+16, PRT+17, FLD+2
, HD, HD+1, HD+3, LEG+3
DGTAB Q!, SET+2*, FLD+2, HD+3
DGX DGAINP4+9*, DGAINP4+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
, FLD+1, HD, LEG, CRCHK*
DT HD
DTIME CRCHK
I Q!, SET+1*, FLD+2*, HD+3*
IOF HD
IOM DGAINP4+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