Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: NURCVPR0

Package: Nursing Service

Routine: NURCVPR0


Information

NURCVPR0 ;HIRMFO/YH,FT-VITALS/MEASUREMENTS RESULTS REPORTING ;5/4/99 14:43

Source Information

Source file <NURCVPR0.m>

Call Graph

Call Graph Total: 18

Package Total Call Graph
Nursing Service 6 ^NURCAS2  WARDSEL^NURCUT0  SELECT^NURCVPR1  ^NURCVUT0  EN6^NURSAUTL  EN7^NURSUT0  
General Medical Record - Vitals 5 EN2^GMRVDS0  EN3^GMRVDS1  EN1^GMRVER0  (DATE,EN5)^GMRVSC0  (EN5,Q2)^GMRVSR0  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$UP^XLFSTR  
VA Fileman 2 ^%DT  (,NOW)^%DTC  
Registration 1 (1,INP,KVAR)^VADPT  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Nursing Service 5 NURCPP-VIT-CUM  NURCPP-VIT-DISP  NURCPP-VIT-ERROR  NURCPP-VIT-SF511  NURCPP-VIT-WARD  

Entry Points

Name Comments DBIA/ICR reference
Q1
Q2
Q4
START ; ENTRY TO PRINT THIS REPORT AFTER IT HAS BEEN QUEUED
; NOTE: THIS REPORT MUST BE QUEUED TO A PRINTER.
START2 ;
REPORT
REPT ;
DEV
EN1 ;ENTER FROM NURCPP-VIT-SF511 OPTION TO PRINT SF 511, B/P OR WEIGHT CHART
EN2 ;VITAL SIGNS DISPLAY BY INDIVIDUAL PATIENT
EN3 ;REPORT OF VITALS ENTERED IN ERROR FOR A PATIENT
EN4 ;CUMULATIVE VITALS REPORT BY WARD/ROOM/PATIENT
START4
DATE
EN5 ;DISPLAY VITAL SIGNS BY LOCATION

External References

Name Field # of Occurrence
^%DT DATE, DATE+2
^%DTC DATE+5
NOW^%DTC DATE+3
^%ZIS DEV, DEV+5
HOME^%ZIS DEV+7
^%ZISC Q2
^%ZTLOAD DEV+7
EN2^GMRVDS0 EN2+2
EN3^GMRVDS1 START2+2
EN1^GMRVER0 EN3+2
DATE^GMRVSC0 EN4+5
EN5^GMRVSC0 REPORT
EN5^GMRVSR0 REPT+1
Q2^GMRVSR0 Q1
^NURCAS2 START+7, EN4+3
WARDSEL^NURCUT0 EN5+7
SELECT^NURCVPR1 EN1+7
^NURCVUT0 EN1+7, EN4+2
EN6^NURSAUTL START+8
EN7^NURSUT0 EN4+6, EN5+10
1^VADPT START2+1
INP^VADPT EN4+4
KVAR^VADPT Q4
$$UP^XLFSTR DEV+4, START+2, START+4, START+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"PAIN CHART must be queued to a HP Laser printer",!
  • Line Location: EN1+10
Function Call: WRITE
  • Prompt: !!,"This report must be queued to a line printer",!,"or a slave printer with 132 columns",!,"or a Kyocera/HP Laser printer",!
  • Line Location: EN1+11
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: !!,"Sorry, you must select a DEVICE that can print 132 columns. Try again."
  • Line Location: DEV+2
Function Call: WRITE
  • Prompt: !,"PAIN CHART uses HP Laser printer only."
  • Line Location: DEV+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+6
Function Call: WRITE
  • Prompt: !,"Sorry, you must select a Kyocera or HP Laser printer for the Pain Chart."
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !,"Sorry, you must select a HP Laser printer."
  • Line Location: START+5
Function Call: WRITE
  • Prompt: !,"NO DATA FOR THIS REPORT"
  • Line Location: START+7
Function Call: WRITE
  • Prompt: !?5,"Ending date of range needs to be greater that starting date.",!?5,$C(7),"PLEASE REENTER!!"
  • Line Location: DATE+6
Function Call: WRITE
  • Prompt: !,"NO PATIENT FOR THIS REPORT"
  • Line Location: EN4+3
Function Call: WRITE
  • Prompt: !,"**** NO DATA FOR UNIT : ",NPWARD
  • Line Location: EN5+8
Routine Call
  • %ZIS
  • Line Location:
    • DEV+7
Routine Call
  • %ZIS
  • Line Location:
    • DEV
    • DEV+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" EN1+9, START+3
^DD("DD" DATE+7
^DIC(42 - [#42] START2+2
^NURSF(211.4 - [#211.4] EN5+8
^NURSF(214 - [#214] START+8, START2+1
^TMP($J START+7!, START+11, REPT+1, Q2+1!, EN4+3!, START4+2, REPORT, START2+1*

Label References

Name Line Occurrences
DATE EN1+8, DATE+6
DEV EN1+10, DEV+2, DEV+4
Q1 START+7, START+12
Q2 EN1+7, EN1+8, DEV, DEV+5, DEV+7, Q4, EN5+7, EN5+8, EN5+10, START2+3
Q4 EN4+2, EN4+3, EN4+5, EN4+6
REPORT START4+2
REPT START+11
START DEV+5

Naked Globals

Name Field # of Occurrence
^( REPT+1
^(0 START+8, EN5+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DATE+3
%DT DATE*!, DATE+2*!
%DT("A" DATE*, DATE+2*
%DT("B" DATE*, DATE+2*
%T Q2+2!
%W Q2+2!
%Y1 Q2+2!
%ZIS DEV*, DEV+5!
%ZIS("B" DEV*
DFN START+8, REPT+1*, Q2+1!, REPORT*, START2+1*
DT DATE+3
G DEV+6*, Q2+1!, EN4+5*, EN5+9*
GFLAG START+7*, Q4!
GMRDATE START+10*, Q2+1!
GMRDT Q2+1!
GMROUT Q2+1!, EN4+4*, EN4+5, START4+2, Q4!
GMRPG START4*, Q4!
GMRVFDT Q4!
>> GMRVHLOC START2+2*
GMRVSDT Q4!
GMRVWLO START+9*, Q2+1!, START2+2*
GMRX EN4+4*, Q4!
GSTRFIN DATE+7*, Q2+3!
IO START4
IO("Q" DEV+5, DEV+6, DEV+7, START+2
IOM DEV+1, DEV+2
ION DEV+1, DEV+6
>> IOP DEV+5*
IOSL DEV+1
IOST DEV+1, DEV+4, START+2, START+4, START+5
NAME Q2+1!
NBED START+11*, REPT+1, Q2+1!, START4+2*, REPORT
ND1 Q2+1!
NDA Q2+1!
NGRAPH EN1+7*, EN1+9, EN1+10, DEV+4, START+2, START+10, Q2!
NI Q2+1!
NIEF Q2+1!
NN Q2+1!
NORM Q2+1!
NPWARD START+8*, START+9, Q2+1!, EN5+8, START2+2
NRMBD EN1+7, Q2+1!, EN4+2
NROOM Q2+1!
NUR5FLG EN1+9*, EN1+10, DEV+4, Q2+1!
NURDEV DEV+1~*, DEV+5
NUREDB EN1+7, START+8, Q2+1!, EN4+2, EN4+4, EN5+7*
NURFIN START+10, DATE+5*, DATE+6, DATE+7, Q2+1!
NURI Q2+1!
NURLEN Q2+1!
NURLOCSW Q2!, EN5+7*
NURMDSW Q2+3!
NURNAM START+11*, REPT+1, Q2+1!, START4+2*, REPORT
NURP Q2!
NURPERR START+2*, START+4*, START+5*, Q2+1!
NURQUEUE Q2+1!
NURQUIT EN1+7*, EN1+8, START+11, DATE*, DATE+2*, Q2+1!, EN4+2*, EN5+7*
NURRM START+10*, START+11*, REPT+1, Q2+1!, START4+1*, START4+2*, REPORT
NURRMST Q2+1!
NURSTRT START+10, DATE+1*, DATE+5, DATE+6, DATE+7, Q2+1!
NURSX Q2+2!
NURSY Q2+2!
NURWARD Q2+1!, EN5+8, START2+1
NURX Q2+2!
NWLOC Q2+2!
NWRD Q2+1!
>> POP DEV, DEV+5, EN4+6, EN5+10
VA Q4!
>> VADM(1 START2+1
>> VAIN(4 START2+2
>> VAIN(5 START2+1
>> VAIN(7 EN4+4
VAROOT Q2+2!
X EN1+9*, START+3*, DATE+6, Q2+1!
X1 DATE+5*, Q2!
X2 DATE+5*, Q2!
Y DATE, DATE+1, DATE+2, DATE+3*, DATE+4*, DATE+5, DATE+7*, Q2+1!
ZTDESC DEV+6*, Q2!, EN5+9*
>> ZTIO DEV+6*
>> ZTRTN DEV+6*, EN4+5*, EN5+9*
>> ZTSAVE( DEV+6*, EN4+5*, EN5+9*
ZTSK Q2!, EN4+6, EN5+10
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All