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

Package: Nursing Service

Routine: NURSUT4


Information

NURSUT4 ;HIRMFO/RM-UTILITIES FOR FILE 213.9 ;5/17/93

Source Information

Source file <NURSUT4.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ; ENTRY FROM INPUT TRANSFORM FROM FIELDS 10.4 AND 10.5 ON FILE 213.9
EN2 ; EXECUTABLE HELP FROM OPTION NURAAM-ACU GRADE/STEP CODE LOAD
QUIT
DISP ;
DSP ;
EN3 ;INPUT TRANSFORM FOR FIELD 8 FILE 211.82
COMPDAT(D0) ; EXTRINSIC FUNCTION TO RETURN COMPUTED SERVICE COMPUTATION DATE
; FROM THE EMPLOYEE(#450) FILE
VALENT ;
VAL0
COMPDISP ; SERVICE COMP DATE DISPLAY

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$C(7),"NURS PAY SCALE FILE IS NOT RESIDENT CANNOT CONTINUE!!"
  • Line Location: EN2+1
Function Call: WRITE
  • Prompt: !!,"Enter Grade/Step Code",!,"examples: ",!,"R/E1/5 = Registered Nurse,ENTRY1,Step 5",!,"N/4/7 = Nursing Assistant,GS4,Step 7",!
  • Line Location: EN2+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DSP+1
Function Call: WRITE
  • Prompt: ?52,$J(NURI(1),2),". ",$P($G(NSCD(NURI(1))),U,2)
  • Condition for execution: $G(NSCD(NURI(0)))'="" ?26,$J(NURI(0),2),". ",$P($G(NSCD(NURI(0))),U,2) W:$G(NSCD(NURI(1)))'=""
  • Line Location: DSP+5
Function Call: WRITE
  • Prompt: !,"<<More>>"
  • Line Location: DSP+8
Function Call: READ
  • Variable: NURX
  • Timeout: DTIME
  • Line Location: DSP+9
Function Call: WRITE
  • Prompt: !,"Press the return key to continue or '^' to exit: "
  • Line Location: DSP+9
Function Call: WRITE
  • Prompt: $C(7),!,"*** NOT YET IMPLEMENTED ***"
  • Line Location: EN3+1
Function Call: WRITE
  • Prompt: !,?22,"Are examples of valid selections"
  • Line Location: VAL0+8
Function Call: WRITE
  • Prompt: ?$X+1,Y,?$X+1," (NO EDITING)"
  • Line Location: COMPDISP+2
Info |  Source |  Entry Points |  Interaction Calls