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

DGPFXCRN.m

Go to the documentation of this file.
  1. DGPFXCRN ; ALB/CNF/CMF - UTILITY TO DISABLE CAT II PRF AFTER CERNER ; 10-05-2019
  1. ;;5.3;Registration;**1005**;Aug 13, 1993;Build 57
  1. ;
  1. ;Tag EN is entry point
  1. Q
  1. ;
  1. ;*****************************************************************
  1. ;**** DO NOT RUN THIS CODE UNTIL THE SITE MOVES PRF TO CERNER ****
  1. ;*****************************************************************
  1. ;
  1. ; To disable Patient Record Flags after Cerner, mark PRF options
  1. ; as out of order so flags can't be added or edited from VistA.
  1. ;
  1. ; Mark all CAT II flags as inactive so CAT II flags are no longer
  1. ; displayed for legacy products remaining on VistA.
  1. ;
  1. POST ; Entry point for post install from KIDS
  1. D CAT2 ;Inactivate Category II flags
  1. ;
  1. Q
  1. ;
  1. CAT2 ;
  1. N FLGNM,FLG,DGPFLH,DGPFLF
  1. ;
  1. D BMES^XPDUTL("Inactivate Category II Patient Record Flags (Local patient record flags).")
  1. D MES^XPDUTL("All patient assignments for category II flags will be inactivated.")
  1. ;
  1. ; Loop through active category II patient record flags
  1. S MSG="PRF functionality inactivated after migration to Cerner"
  1. S FLGNM=""
  1. F S FLGNM=$O(^DGPF(26.11,"ASTAT",1,FLGNM)) Q:FLGNM="" D
  1. . S FLG=$O(^DGPF(26.11,"ASTAT",1,FLGNM,0)) Q:FLG=""
  1. . D DEACT(FLG,FLGNM,MSG)
  1. . Q
  1. ;
  1. Q
  1. ;
  1. DEACT(FLG,FLGNM,MSG) ;Deactivate; called from DG*1005 post init; called from DG*991 post init
  1. ;
  1. N DGIDXIEN ;ien of flag record
  1. N DGPFLF ;array containing flag record field values
  1. N DGPFLH ;array containing flag history record field values
  1. N DGABORT ;abort flag
  1. N DGRESULT ;result of $$STOALL^DGPFALF1 api call
  1. N DGERR ;if error returned
  1. N DGOK ;ok flag to enter record flag entry & flag description
  1. N DGMSG ;user message
  1. N DGX ;temp variable
  1. ;
  1. ; init variables
  1. S (DGABORT,DGRESULT)=0
  1. S DGOK=1
  1. ;
  1. S DGIDXIEN=FLG
  1. K DGPFLF,DGPFLH
  1. ;
  1. ; call api to get record back in array DGPFLF with existing record entries
  1. I '$$GETLF^DGPFALF($P(DGIDXIEN,";"),.DGPFLF) Q ; If true, record can't be found
  1. ;
  1. ; Set array to change entries in 26.11
  1. S DGPFLF("FLAG")=FLGNM ;flag description
  1. S DGPFLF("STAT")="0^INACTIVE" ;change to inactive
  1. ;
  1. ; setup remaining flag history array nodes for filing in 26.12
  1. S DGPFLH("FLAG")=FLGNM ;flag description
  1. S DGPFLH("ENTERDT")=$$NOW^XLFDT() ;current date/time
  1. S DGPFLH("ENTERBY")=DUZ ;current user
  1. S DGX="^^1^1^"_($P(DGPFLH("ENTERDT"),".",1))_"^"
  1. S DGPFLH("REASON",0)=DGX ;reason array
  1. S DGPFLH("REASON",1,0)=MSG
  1. ;
  1. ; Inactivate the category II patient record flag which will also trigger
  1. ; inactivation of all active patient record flag assignment records in
  1. ; the PRF ASSIGNMENT (#26.13) file associated with this flag.
  1. ;
  1. ; file both the (#26.11) & (#26.12) entries
  1. S DGRESULT=$$STOALL^DGPFALF1(.DGPFLF,.DGPFLH,.DGERR)
  1. ;
  1. D MES^XPDUTL("Local record flag "_FLGNM_" inactivation was "_$S(+DGRESULT:"filed successfully.",1:"not filed successfully."))
  1. ;
  1. Q
  1. ;
  1. OPT ; List of options to mark out of order
  1. ;/DGPF BACKGROUND PROCESSING/Patient Record Flag Background
  1. ;/DGPF ENABLE DIVISIONS/Record Flag Enable Divisions
  1. ;/DGPF LOCAL TO NATIONAL CONVERT/Convert Local HRMH PRF to National
  1. ;/DGPF MANUAL QUERY/Record Flag Manual Query
  1. ;/DGPF PRF TRANSFER REQUESTS/Record Flag Transfer Requests
  1. ;/DGPF PRINCIPAL INVEST REPORT/Assignments by Principal Investigator Report
  1. ;/DGPF RECORD FLAG ASSIGNMENT/Record Flag Assignment
  1. ;/DGPF RECORD FLAG MANAGEMENT/Record Flag Management
  1. ;/DGPF RECORD REFRESH/Record Flag Data Refresh
  1. ;/DGPF TRANSMISSION ERRORS/Record Flag Transmission Errors
  1. ;/DGPF TRANSMISSION MGMT/Record Flag Transmission Mgmt
  1. ;//;
  1. ; Note reporting options are left enabled
  1. ;
  1. FAIL ;
  1. W !!?4,"Unable to find option: ",OPT," ",OPTNM
  1. Q
  1. ;