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

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=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
  • Variable: X
  • Timeout: DTIME
  • Line Location: CRCHK+0
Info |  Source |  Entry Points |  Interaction Calls