Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: SD148PT

SD148PT.m

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