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

Package: General Medical Record - IO

Routine: GMRYSE1


Information

GMRYSE1 ;HIRMFO/YH-ITEMIZED PATIENT I/O REPORT BY SHIFT PART 2 ;3/11/97

Source Information

Source file <GMRYSE1.m>

Entry Points

Name Comments DBIA/ICR reference
BODY ;
FOOTER ;
REPORT ;
HEADER2 ;
NPOS ;OBTAIN NURSE POSITION
Q
GPOS(GNURSE) ;
ILABEL ;
OLABEL ;
CHKPR ;
CHKTYP ;
SHFTP ;FIELD TO SAVE '+' CODE FOR SHIFT TOTAL
DAYP ;FIELD TO SAVE '+' CODE FOR DAY TOTAL

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?5,"NO DATA FOR THIS PERIOD",!!
  • Line Location: BODY+1
Function Call: WRITE
  • Prompt: !
  • Line Location: FOOTER+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: REPORT+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: HEADER2+2
Function Call: WRITE
  • Prompt: !,?GCOL,"PATIENT INTAKE/OUTPUT REPORT BY SHIFT AND EVENT TYPE"
  • Line Location: HEADER2+4
Function Call: WRITE
  • Prompt: ?GCOL,"PAGE: ",GPC
  • Line Location: HEADER2+4
Function Call: WRITE
  • Prompt: !,?GCOL,$S(GRPT=9:$E(GMRX,1,46),1:GMRX),!
  • Line Location: HEADER2+5
Function Call: WRITE
  • Prompt: ?GCOL,GMRDT1," - ",GMRDT2,!
  • Line Location: HEADER2+5
Function Call: WRITE
  • Prompt: GY_"(continued)",!
  • Line Location: HEADER2+6
Function Call: WRITE
  • Prompt: ?14,$S(GIO="IN":$P($G(^GMRD(126.56,+GTYPE,0)),"^")_" intake vol: ",GIO="OUT":$P($G(^GMRD(126.58,+GTYPE,0)),"^")_" output vol: ",1:""),GAMOUNT_$S(GAMOUNT>0!(GAMOUNT="0"):" mls",1:"")
  • Line Location: NPOS+3
Function Call: WRITE
  • Prompt: " "_$P(^GMRD(126.6,+GSUB,0),"^")
  • Line Location: NPOS+4
Function Call: WRITE
  • Prompt: ?GCOL,$E($P($P(^VA(200,GNURSE,0),"^"),",",2)),$E($P(^(0),"^"))
  • Line Location: NPOS+7
Function Call: WRITE
  • Prompt: "/"_$S(GPOS="R":"RN",GPOS="L":"LPN",GPOS="N":"NA",GPOS="C":"CL",1:"OTH")
  • Line Location: NPOS+9
Function Call: WRITE
  • Prompt: !
  • Line Location: Q+0
Function Call: WRITE
  • Prompt: ?2,"INTAKE:",!
  • Line Location: CHKPR+2
Function Call: WRITE
  • Prompt: ?2,"OUTPUT:",!
  • Line Location: CHKPR+3
Function Call: WRITE
  • Prompt: ?4,$S(GSUB=1:"PO",GSUB=2:"NASOGASTRIC",GSUB=3:"GASTROTOMY",GSUB=4:"PHARYNGOTOMY",1:"OTHER")
  • Line Location: CHKTYP+2
Function Call: WRITE
  • Prompt: ?4,$P(^GMRD(126.6,+GSUB,0),"^")
  • Line Location: CHKTYP+3
Info |  Source |  Entry Points |  Interaction Calls