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

Package: Nursing Service

Routine: NURSCPLC


Information

NURSCPLC ;HIRMFO/RM,FT,MD-PATIENT CENSUS...WARD, AND HOSPITAL ;12/14/98

Source Information

Source file <NURSCPLC.m>

Entry Points

Name Comments DBIA/ICR reference
EN2 ; ENTRY FOR WARD PATIENT CENSUS
START ;
QUIT ; KILL LOCAL VARIABLES
SORT ; SORT OF PATIENT CENSUS
HEADER ; PRINTING OF HEADING ROUTINE
PROD
PRINT ;PRINT ROUTINE
NM
NN
NO
NP
NQ
PRINT1
FNDCLAS

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN2+6
Function Call: WRITE
  • Prompt: !
  • Line Location: EN2+7
Function Call: WRITE
  • Prompt: !
  • Line Location: EN2+8
Function Call: WRITE
  • Prompt: !,?$$CNTR^NURSUT2($G(NURFAC(2))),$S($G(NURFAC(2))=" BLANK":"NO FACILITY",1:$G(NURFAC(2)))
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: !,$E(DT,4,5),"/",$E(DT,6,7),"/",$E(DT,2,3),?28,NURSHD,?68,"PAGE: ",NURPAGE,!
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: !,"ROOM/BED",?17,"PATIENT NAME",?40,"Last 4",?55,"ABSENCE",?64,"BED SEC",?73,"ACUITY"
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",80),!
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: !?$$CNTR^NURSUT2(NURPROG(4)),$S($E(NURPROG(4),1)=" ":$E(NURPROG(4),2,99),1:$G(NURPROG(4)))
  • Line Location: PROD+0
Function Call: WRITE
  • Prompt: !,?$$CNTR^NURSUT2(NURPROG(4)),$$REPEAT^XLFSTR("-",$L(NURPROG(4))+1),!
  • Line Location: PROD+0
Function Call: WRITE
  • Prompt: $C(7),!,"THERE IS NO DATA FOR THIS REPORT"
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: NM+0
Function Call: WRITE
  • Prompt: !,$S(NBED'=" BLANK":NBED,1:""),?17,^TMP($J,"L1",NURSORT,NBED,N1,DFN),$S(N1'=" BLANK":$E(N1,1,19),1:""),?42,SSN,?56,$S($D(NURSX):NURSX,1:""),?66,NSEC,?75,NURCAT
  • Line Location: PRINT1+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^NURSF(212.7 - [#212.7] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call