- 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 Jan 18, 2025@03:45:45 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!