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

Package: Nursing Service

Routine: NURCRL1


Information

NURCRL1 ;HIRMFO/RM,RTK-RANK ORDER PRINT (CONT.) ;8/29/96

Source Information

Source file <NURCRL1.m>

Entry Points

Name Comments DBIA/ICR reference
HEADER(PG) ; FUNCTION PRINTS HEADER FOR NEXT PAGE
; FUNCTION VALUE IS THE NUMBER OF NEW PAGE, -1 IF ABNORMAL USER EXIT
RETURN
HDRINT() ; PRINTS HEADER FOR INTERVENTIONS UNDER A PROBLEM
; FUNCTION VALUE IS 1 IF ABNORMAL USER END, ELSE 0
WRTPROB(RANK,PROB,FREQ) ; WRITES OUT LINE FOR PROBLEM, CHECKS FOR HEADER PRINT
; FUNCTION VALUE IS 1 IF ABNORMAL USER END, ELSE 0
WRTORD(RANK,ORD,FREQ) ; WRITES OUT LINE FOR ORDERABLE, CHECKS FOR HDR PRINT
; FUNCTION VALUE IS 1 IF ABNORMAL USER EXIT, ELSE 0
WRTOPT(BS5) ; WRITES OUT LINE FOR PATIENTS UNDER ORDERABLE, CHECKS FOR HDR
; FUNCTION VALUE IS 1 IF ABNORMAL USER END, ELSE 0
WRTPPT(BS5) ; WRITES OUT LINE FOR PATIENTS UNDER PROBLEM, CHECKS FOR HDR
; FUNCTION VALUE IS 1 IF ABNORMAL USER END, ELSE 0
ACTIVE(PR,NCP,BDT,EDT) ;
; FUNCTION VALUE IS 0 IF THIS PROBLEM IS ACTIVE OVER DATE/TIME RANGE
; BGD-EDT, ELSE VALUE IS 1
PROBLEM(AGGY) ;
; FUNCTION VALUE IS 1 IF AGGY HAS CLASS OF NURSING PROBLEM, ELSE
; RETURNS 0.
GETTRM(PR,CLAS) ;
; GETS FIRST TERM ENCOUNTERED IN TREE WITH PR AS ROOT WITH CLASS.=CLAS
RECUR1
GETLST(PR,CLAS) ; GETS LIST OF TERMS IN TREE WITH PR AS ROOT WITH CLASS.=CLAS
; FUNCTION RETURNS 1 IF LIST NOT EMPTY, ELSE RETURNS 0.
RECUR

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $E(IOST)="C"!(PG>1)
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: !,"RANK LISTING OF "_$S(NURCRTYP=1:"NURSING PROBLEMS",NURCRTYP=2:"NURSING PROBLEMS/INTERVENTIONS",1:"NURSING INTERVENTIONS"),?71,"PAGE",$J(PG,3)
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: !,"From: ",Y
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: " to: ",Y
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: " Report Identifier: ",NURCLID
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: !,"=============================================================================="
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: !?5,"Rank Freq Intervention",!?5,"---- ---- ------------"
  • Line Location: HDRINT+3
Function Call: WRITE
  • Prompt: !!,$J(RANK,3),?5,$J(FREQ,4),?11,$P($G(^GMRD(124.2,+PROB,0)),"^")
  • Line Location: WRTPROB+3
Function Call: WRITE
  • Prompt: !?5,$J(RANK,3),?10,$J(FREQ,4),?16,$P($G(^GMRD(124.2,+ORD,0)),"^")
  • Line Location: WRTORD+3
Function Call: WRITE
  • Prompt: BS5,","
  • Line Location: WRTOPT+3
Function Call: WRITE
  • Prompt: BS5,","
  • Line Location: WRTPPT+3
Info |  Source |  Entry Points |  Interaction Calls