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

Package: General Medical Record - IO

Routine: GMRYSE2


Information

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

Source Information

Source file <GMRYSE2.m>

Entry Points

Name Comments DBIA/ICR reference
SUM ;
SHIFT ;
IOSUM ;
IOTIME ;
IOTYPE ;
ADD ;
SUMIV ;
IVLINE ;
WSHIFT ;
Q2
SDATE ;
DAYTOT ;
Q3
CHKHD ;
WRITEI

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?2,GSHIFT_":",!
  • Line Location: SHIFT+1
Function Call: WRITE
  • Prompt: ?4,"ITEMIZED "_$S(GIO="IV":"IV INTAKE",GIO="IN":"NON-IV INTAKE",GIO="OUT":"OUTPUT",1:""),!
  • Line Location: IOSUM+1
Function Call: WRITE
  • Prompt: !,?2,"*** ",GSHIFT," shift total: ",!
  • Line Location: WSHIFT+3
Function Call: WRITE
  • Prompt: ?6,"Intake:",!
  • Line Location: WSHIFT+4
Function Call: WRITE
  • Prompt: ?8,GLAB," ",$E(GMRDOT,1,18-$L(GLAB)),?25," ",$S(GIN(II)=0&(GSIP(II)="+"):GSIP(II),1:GIN(II)_GSIP(II))_" mls",!
  • Line Location: WSHIFT+5
Function Call: WRITE
  • Prompt: ?6,"Output:",!
  • Line Location: WSHIFT+7
Function Call: WRITE
  • Prompt: ?8,GLAB," ",$E(GMRDOT,1,18-$L(GLAB)),?25," ",$S(GOUT(II)=0&(GSOP(II)="+"):GSOP(II),1:GOUT(II)_GSOP(II))_" mls",!
  • Line Location: WSHIFT+8
Function Call: WRITE
  • Prompt: GY,!
  • Line Location: SDATE+1
Function Call: WRITE
  • Prompt: GMRX,!,GY,!
  • Line Location: SDATE+2
Function Call: WRITE
  • Prompt: $E(GMRX,1,21),!,"Summary for: ",GY,!
  • Line Location: DAYTOT+1
Function Call: WRITE
  • Prompt: ?2,"Intake:",!
  • Line Location: DAYTOT+1
Function Call: WRITE
  • Prompt: ?2,"Output:",!
  • Line Location: DAYTOT+2
Function Call: WRITE
  • Prompt: ?4,GLAB," ",$E(GMRDOT,1,18-$L(GLAB)),?25," ",$S(GTOTOUT(II)=0&(GDOP(II)="+"):GDOP(II),1:GTOTOUT(II)_GDOP(II))_" mls",!
  • Line Location: DAYTOT+3
Function Call: WRITE
  • Prompt: ?2,"Total intake measured: ",$S(GTOTLI=0&(GRNDIP="+"):GRNDIP,1:GTOTLI_GRNDIP)_" mls",!
  • Line Location: DAYTOT+4
Function Call: WRITE
  • Prompt: ?2,"Total output measured: ",$S(GTOTLO=0&(GRNDOP="+"):GRNDOP,1:GTOTLO_GRNDOP)_" mls",!
  • Condition for execution: GRPT<9
  • Line Location: DAYTOT+4
Function Call: WRITE
  • Prompt: ?4,GLAB," ",$E(GMRDOT,1,18-$L(GLAB)),?25," ",$S(GTOTIN(II)=0&(GDIP(II)="+"):GDIP(II),1:GTOTIN(II)_GDIP(II))_" mls",!
  • Line Location: WRITEI+0
Info |  Source |  Entry Points |  Interaction Calls