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

Package: Nursing Service

Routine: NURSUT3


Information

NURSUT3 ;HIRMFO/RM,MD-UTILITIES FOR FILES 210 AND 211.8 ; 3/4/03 10:51am

Source Information

Source file <NURSUT3.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ; INPUT TRANSFORM FOR THE VACANCY DATE (#3) OF THE OCCUPANCY/TRANS.
; DATE (#2) FIELD OF THE POSITION CONTROL FILE.
EN2 ; ENTRY FROM INPUT TRANSFORM FOR 1 & 1.5 SUBFIELDS OF FIELD 27
; OF FILE 210
EN3 ; ENTRY FROM INPUT TRANSFORM ON SUBFIELD .01 OF SUBFIELD 5.5 OF
; FIELD 27 IN FILE 20
EN4 ; PRINT ERROR MESSAGE BASED ON WHAT IS RETURNED FROM EN3
; INPUT VARIABLES: NURSBAD=$S(0:NO PROB,1:PROB)^$S(1:FTEE>1,2:DUP PRI,
; 3:STARTDT>VACDT,4:DUP)
; SERVICE POS,5:NO PRI)
; ASS:ERR,7:DUP DUTY
; TOURS)
EN5 ; ENTRY FROM INPUT TRANSFORM FOR 2 & 3 SUBFIELDS OF FIELD 24
; OF FILE 210
EN6(DA) ; SCREEN IF EMPLOYEE IS AUTHORIZED TO VIEW THIS LOCATION
; VARIABLES ARE SET BASED ON DIC("S") TO FILE 210.
EN7(DUZ) ; PRSE TRAIN SECURITY KEY CHECK
EN8(DUZ) ; PRSE SUP SECURITY KEY CHECK
EN9(DUZ) ; PRSE CORD SECURITY KEY CHECK
EN10(DUZ) ;
EN11(DA) ; GET FACILITY WITH POSITION CONTROL IEN IN THE NURS POSITION
; CONTROL 211.8 FILE. THE VALUE OF THE FUNCTION WILL BE "" IF THERE
; IS NO FACILITY ASSOCIATED WITH THIS HOSPITAL LOCATION, OR THE
; FREE TEXT VALUE OF THE FACILITY
EN12(DA) ; GET FACILITY WITH IEN FROM THE NURS LOCATION 211.4 FILE
; THE VALUE OF THE FUNCTION WILL BE " BLANK" IF THERE IS NO FACILITY ASSOCIATED
; WITH THIS NURS LOCATION OR THE FREE TEXT VALUE OF THE FACILITY
EN13(NOD1) ; GET PRODUCT LINE OF PRIMARY NURS LOCATIO WITH IEN FROM THE
; POSITION CONTROL FILE THE VALUE OF THE FUNCTION WILL BE " BLANK
; IF THERE IS NO PRODUCT LINE ASSOCIATED WITH THIS NURS LOCATION OR THE
; FREE TEXT VALUE OF THE PRODUCT LINE
GETSER() ; THIS PROCEDURE WILL RETURN THE VALUE FOR NURSING IN THE
; PAID COST CENTER ORGANIZATION CODE (454.1) FILE. THE VALUE
; OF THE FUNCTION WILL BE "" IF THERE ARE NO NURSING ENTRIES, OR
; A LIST OF NURSING ENTRY IEN's SEPARATED BY ^'s.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,NURS("HELP")
  • Line Location: EN2+3
Function Call: WRITE
  • Prompt: !!,$C(7),?5,"NO FUNDS WERE REQUESTED FOR "_$S(X="T":"TRAVEL",X="A":"AIRFARE",X="P":"PER DIEM",1:"REGISTRATION")_":"
  • Line Location: EN3+3
Function Call: WRITE
  • Prompt: $S($P(NURSBAD,U,2)=1:"THE TOTAL FTEE",$P(NURSBAD,U,2)=2:"TWO PRIMARY ASSIGNMENTS EXIST FOR",$P(NURSBAD,U,2)=3:"THE START DATE IS GREATER THAN",$P(NURSBAD,U,2)=4:"DUPLICATE SERVICE POSITIONS ON THE",1:"")
  • Line Location: EN4+7
Function Call: WRITE
  • Prompt: $S($P(NURSBAD,U,2)=7:"DUPLICATE DUTY TOURS ON THE",1:"")
  • Line Location: EN4+8
Function Call: WRITE
  • Prompt: $S($P(NURSBAD,U,2)=1:"",$P(NURSBAD,U,2)=2:"",$P(NURSBAD,U,2)=3:"",$P(NURSBAD,U,2)=4:"",$P(NURSBAD,U,2)=5:"NO PRIMARY POSITION WAS DESIGNATED, THIS POSITION WILL BE PRIMARY",$P(NURSBAD,U,2)=7:"",1:"")
  • Line Location: EN4+9
Function Call: WRITE
  • Prompt: $S($P(NURSBAD,U,2)=1:"",$P(NURSBAD,U,2)=2:"",$P(NURSBAD,U,2)=3:"",$P(NURSBAD,U,2)=4:"",$P(NURSBAD,U,2)=5:"",$P(NURSBAD,U,2)=6:"NO PRIMARY POSITION EXISTS FOR THIS ",$P(NURSBAD,U,2)=7:"",1:"INVALID DATA EXISTS FOR THIS")
  • Line Location: EN4+10
Function Call: WRITE
  • Prompt: !?5,$S($P(NURSBAD,U,2)=1:"WOULD BE GREATER THAN 1 FOR THIS ",$P(NURSBAD,U,2)=2:"THIS ",$P(NURSBAD,U,2)=3:"THE VACANCY DATE FOR THIS ",$P(NURSBAD,U,2)=4!($P(NURSBAD,U,2)=7):"SAME LOCATION EXIST FOR THIS ",1:"")
  • Line Location: EN4+11
Function Call: WRITE
  • Prompt: !?5,NURS("HELP")
  • Line Location: EN5+4

FileMan Files Accessed Via FileMan Db Call

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