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

Package: Nursing Service

Routine: NURCCP2


Information

NURCCP2 ;HIRMFO/RM-STANDARD CARE PLAN, PRINT (selection driver) ;1/23/96

Source Information

Source file <NURCCP2.m>

Entry Points

Name Comments DBIA/ICR reference
SELCHC ; PRINT CHOICES TO SELECT FROM
SELC ;
SEL ; SELECT PROMPT
DXPRT ; PRINT DX'S UNDER PROBLEMS
EOPG ; END OF PAGE
HDR ; PRINT HDR & FF
VALSEL ; VALIDATE INPUT IN NURX IN FORM 1-3,4 WITH 1-CHC AS RANGE
; SETS OK=1 IF VALID, ELSE SETS OK=0
SETSEL ; SET SELECTION ARRAY

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"THERE ARE NO ENTRIES TO PICK FROM"
  • Line Location: SELCHC+1
Function Call: WRITE
  • Prompt: !,$J(X,3,0),". ",$P(^TMP($J,"CPCH",X),"^",2)
  • Line Location: SELC+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SEL+1
Function Call: WRITE
  • Prompt: !?4,"ENTER SELECTIONS USING HYPHENS AND COMMAS. E.G. 1-3,6."
  • Line Location: SEL+2
Function Call: WRITE
  • Prompt: !?4,$C(7),"PLEASE ENTER A NUMBER IN THE RANGE 1-",CHC
  • Line Location: SEL+3
Function Call: WRITE
  • Prompt: !?4,"OR ENTER ^ TO EXIT, OR ?? TO RELIST THE SELECTIONS."
  • Line Location: SEL+4
Function Call: WRITE
  • Prompt: !?5,"- "_$P(H,"^",2)
  • Line Location: DXPRT+1
Function Call: READ
  • Variable: Y
  • Timeout: DTIME
  • Line Location: EOPG+1
Function Call: WRITE
  • Prompt: !,"Enter action (<RET> to see more): "
  • Line Location: EOPG+1
Function Call: WRITE
  • Prompt: !?4,"TYPE <RET> TO CONTINUE LISTING, ?? TO RELIST THE SELECTIONS,",!?4,"^ TO STOP LISTING, ^^ TO EXIT PROGRAM"
  • Line Location: EOPG+4
Function Call: WRITE
  • Prompt: ",",!?4,"OR MAKE SELECTIONS, CHOOSE FROM 1-",CHC
  • Condition for execution: MULT
  • Line Location: EOPG+4
Function Call: WRITE
  • Prompt: "."
  • Line Location: EOPG+4
Function Call: WRITE
  • Prompt: @IOF,TXT
  • Line Location: HDR+1
Info |  Source |  Entry Points |  Interaction Calls