SD148PT ;BP/CMF - UPDATE STANDARD POSTION FILE ;7/17/98@09:30
;;5.3;Scheduling;**148T4**;AUG 13, 1993
;
;;SDA = Fileman Data Array (FDA)
;;SDL = Line Reference
;;SDERR = Error Message Array
;;SDX = Scratch
;;SDY = Scratch
;
EN N SDA,SDL,SDX,SDY
;find out if entry exists
S SDX=$$FIND1^DIC(403.46,"","X",$$S(1))
D W(),W(1)
I SDX=0 D GOOD G ENQ
I +SDX D OK G ENQ
D BAD
ENQ Q
;
GOOD ;if no entry, create it
K SDX
D FDA(1)
D UPDATE^DIE("","SDA(1)")
I '$D(DIERR) D W(25),W(26) Q
D W(37)
Q
;
OK ;if single entry, update/complete it
D FDA(,SDX)
D FILE^DIE("","SDA(1)")
I '$D(DIERR) D W(28),W(29),W(30),W(26) Q
D W(37)
Q
;
BAD ;if many entries, don't update it
D W(32),W(25),W(33),W(34),W(35),W(30)
Q
;
FDA(SDY,SDX) ;
;input: SDY = .01 field?
;input: SDX = filer ien
;output: FDA
I $D(SDY) D
.S SDX=$$S(4)_$$S(5)
.S @SDX@(.01)=$$S(1)
E S SDX=$$S(4)_""""_SDX_","_""""_")"
S @SDX@(.02)=274 ;hard set pointer field because USR CLASS
; ;file may not yet exist on system
S SDY=$$S(3)
S @SDX@(1)=SDY
F SDX=7:1:23 S @SDY@(SDX-6)=$$S(SDX)
Q
;
W(SDX) ;input: SDX=Line reference
;output: KIDS Message
S SDX=$G(SDX,0)
D MES^XPDUTL($$S(SDX))
Q
;
S(SDL) Q $P($T(T+SDL),";;",2)
;
T ;; ;;
1 ;;CLINICAL NURSE SPECIALIST
;;NURSE CLINICAL SPECIALIST
;;SDA("TEXT")
4 ;;SDA(1,403.46,
;;"+1,")
;;
7 ;;Masters Degree-prepared, registered nurses with nationally
;;recognized clinical advanced practice certification, accountable for
;;the delivery of comprehensive health and preventive care services
;;across the spectrum of clinical settings. Uses an analytical
;;framework, such as nursing process, to create an environment
;;that facilitates the delivery of care. Coordinates and evaluates
;;integrated programs, and provides leadership in improving and
;;sustaining the quality and effectiveness of care in diverse or
;;complex programs. Function as licensed independent practitioners
;;that do not require "supervision" by a physician, physician
;;countersignature of orders or the care they provide. Function
;;autonomously within a defined scope of practice in
;;collaboration with physicians and other health care providers.
;;[REF: IL 10-97-024, dated July 7, 1997: entitled "Under
;;Secretary for Health's Information Letter - Utilization of Nurse
;;Practitioners and Clinical Nurse Specialists" and Nursing
23 ;;Qualifications Standards - Nurse Level IV]
;;
25 ;;added to Standard Position file.
26 ;;You may delete the routine "SD148PT" from your system.
;;
28 ;;in your Standard Position file has been updated.
;;The user class and description fields have been modified.
30 ;;There should be no local entries in this file!
;;
32 ;;has not been
;;There are multiple entries of this standard position.
;;Clean up the multiple entries, and then run "EN^SD148PT"
35 ;;to add the supported position.
;;
37 ;;Error during processing! Standard Position file not updated!
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSD148PT 3053 printed Dec 13, 2024@02:44:37 Page 2
SD148PT ;BP/CMF - UPDATE STANDARD POSTION FILE ;7/17/98@09:30
+1 ;;5.3;Scheduling;**148T4**;AUG 13, 1993
+2 ;
+3 ;;SDA = Fileman Data Array (FDA)
+4 ;;SDL = Line Reference
+5 ;;SDERR = Error Message Array
+6 ;;SDX = Scratch
+7 ;;SDY = Scratch
+8 ;
EN NEW SDA,SDL,SDX,SDY
+1 ;find out if entry exists
+2 SET SDX=$$FIND1^DIC(403.46,"","X",$$S(1))
+3 DO W()
DO W(1)
+4 IF SDX=0
DO GOOD
GOTO ENQ
+5 IF +SDX
DO OK
GOTO ENQ
+6 DO BAD
ENQ QUIT
+1 ;
GOOD ;if no entry, create it
+1 KILL SDX
+2 DO FDA(1)
+3 DO UPDATE^DIE("","SDA(1)")
+4 IF '$DATA(DIERR)
DO W(25)
DO W(26)
QUIT
+5 DO W(37)
+6 QUIT
+7 ;
OK ;if single entry, update/complete it
+1 DO FDA(,SDX)
+2 DO FILE^DIE("","SDA(1)")
+3 IF '$DATA(DIERR)
DO W(28)
DO W(29)
DO W(30)
DO W(26)
QUIT
+4 DO W(37)
+5 QUIT
+6 ;
BAD ;if many entries, don't update it
+1 DO W(32)
DO W(25)
DO W(33)
DO W(34)
DO W(35)
DO W(30)
+2 QUIT
+3 ;
FDA(SDY,SDX) ;
+1 ;input: SDY = .01 field?
+2 ;input: SDX = filer ien
+3 ;output: FDA
+4 IF $DATA(SDY)
Begin DoDot:1
+5 SET SDX=$$S(4)_$$S(5)
+6 SET @SDX@(.01)=$$S(1)
End DoDot:1
+7 IF '$TEST
SET SDX=$$S(4)_""""_SDX_","_""""_")"
+8 ;hard set pointer field because USR CLASS
SET @SDX@(.02)=274
+9 ; ;file may not yet exist on system
+10 SET SDY=$$S(3)
+11 SET @SDX@(1)=SDY
+12 FOR SDX=7:1:23
SET @SDY@(SDX-6)=$$S(SDX)
+13 QUIT
+14 ;
W(SDX) ;input: SDX=Line reference
+1 ;output: KIDS Message
+2 SET SDX=$GET(SDX,0)
+3 DO MES^XPDUTL($$S(SDX))
+4 QUIT
+5 ;
S(SDL) QUIT $PIECE($TEXT(T+SDL),";;",2)
+1 ;
T ;; ;;
1 ;;CLINICAL NURSE SPECIALIST
+1 ;;NURSE CLINICAL SPECIALIST
+2 ;;SDA("TEXT")
4 ;;SDA(1,403.46,
+1 ;;"+1,")
+2 ;;
7 ;;Masters Degree-prepared, registered nurses with nationally
+1 ;;recognized clinical advanced practice certification, accountable for
+2 ;;the delivery of comprehensive health and preventive care services
+3 ;;across the spectrum of clinical settings. Uses an analytical
+4 ;;framework, such as nursing process, to create an environment
+5 ;;that facilitates the delivery of care. Coordinates and evaluates
+6 ;;integrated programs, and provides leadership in improving and
+7 ;;sustaining the quality and effectiveness of care in diverse or
+8 ;;complex programs. Function as licensed independent practitioners
+9 ;;that do not require "supervision" by a physician, physician
+10 ;;countersignature of orders or the care they provide. Function
+11 ;;autonomously within a defined scope of practice in
+12 ;;collaboration with physicians and other health care providers.
+13 ;;[REF: IL 10-97-024, dated July 7, 1997: entitled "Under
+14 ;;Secretary for Health's Information Letter - Utilization of Nurse
+15 ;;Practitioners and Clinical Nurse Specialists" and Nursing
23 ;;Qualifications Standards - Nurse Level IV]
+1 ;;
25 ;;added to Standard Position file.
26 ;;You may delete the routine "SD148PT" from your system.
+1 ;;
28 ;;in your Standard Position file has been updated.
+1 ;;The user class and description fields have been modified.
30 ;;There should be no local entries in this file!
+1 ;;
32 ;;has not been
+1 ;;There are multiple entries of this standard position.
+2 ;;Clean up the multiple entries, and then run "EN^SD148PT"
35 ;;to add the supported position.
+1 ;;
37 ;;Error during processing! Standard Position file not updated!
