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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: GMRYRP3

Package: General Medical Record - IO

Routine: GMRYRP3


Information

GMRYRP3 ;HIRMFO/YH-PATIENT INTAKE/OUTPUT REPORT HEADING ;3/27/97

Source Information

Source file <GMRYRP3.m>

Entry Points

Name Comments DBIA/ICR reference
REPORT1 ;
HEADER ;
BODY ;
INITOT ;
INISHFT ;
FOOTER ;
TITLE ;CREATE HEADER FOR I/O SUMMARY REPORT,GTYPI(TYPE)=ORDER,GTYP(O)=ORDER
H1 ;I/O SUMMARY BY PT
H2 ;I/O SUMMARY
H3 ;SF511 REPORT
BLANK
SHFTP ;FIELD TO SAVE '+' CODE FOR SHIFT TOTAL
DAYP ;FIELD TO SAVE '+' CODE FOR DAY TOTAL

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !,?GG,"PATIENT INTAKE/OUTPUT SUMMARY",$S(GRPT=2:" (CURRENT)",GRPT=3:" (PREVIOUS DAY)",GRPT=4:" (48 HRS)",1:" ")
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: ?70,"PAGE: ",GPC,!
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: GLN(1),!,GLN(2),!,GLN(3)
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: !,$E(GMRX,1,GMRCOL),!
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: GMRNAM
  • Line Location: FOOTER+1
Function Call: WRITE
  • Prompt: ?32,GMRBTH
  • Condition for execution: SSN'="" ?17,SSN W:GMRBTH'=""
  • Line Location: FOOTER+1
Function Call: WRITE
  • Prompt: ?53,GMRSEX
  • Condition for execution: GMRAGE'="" ?42,"(",GMRAGE," YRS)" W:GMRSEX'=""
  • Line Location: FOOTER+1
Function Call: WRITE
  • Prompt: !,"UNIT: "
  • Line Location: FOOTER+2
Function Call: WRITE
  • Prompt: ?41,GMRBED
  • Condition for execution: GMRWARD(1)'="" ?7,GMRWARD(1) W ?33,"RM/BED: " W:GMRBED'=""
  • Line Location: FOOTER+2
Function Call: WRITE
  • Prompt: !
  • Line Location: FOOTER+2
Function Call: WRITE
  • Prompt: "DIVISION: "_$S(GMRVHLOC>0:$$GET1^DIQ(4,+$$GET1^DIQ(44,+GMRVHLOC,3,"I"),.01,"I"),1:""),!
  • Line Location: FOOTER+4
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: H1+1
Function Call: WRITE
  • Prompt: !,"RM/BED : ",GMRBED,?20,GMRNAM,?40,SSN,!
  • Line Location: H2+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: H2+2
Function Call: WRITE
  • Prompt: !
  • Line Location: BLANK+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ
^SC - [#44] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call