GMTSPT12 ; SLC/JER - Post-install for Health Summary patch 12
;;2.7;Health Summary;**12**;Feb 28, 1996
HSCFILE ; Install Health Summary components
N DIC,DLAYGO,DINUM,X,Y,INCLUDE
I +$O(^GMT(142.1,"B","PROGRESS NOTES SELECTED",0)) D Q
. D BMES^XPDUTL("SELECTED PROGRESS NOTES COMPONENT ALREADY INSTALLED.")
D BMES^XPDUTL("Filing SELECTED PN component in HEALTH SUMMARY COMPONENT FILE.")
S (DIC,DLAYGO)=142.1,DIC(0)="NXL",X="PROGRESS NOTES SELECTED"
S DINUM=$$GETNUM
I +DINUM'>1 D Q
. D BMES^XPDUTL("Could not install SELECTED PROGRESS NOTE component.")
D ^DIC
I +Y'>0 D Q
. D BMES^XPDUTL("Could not install SELECTED PROGRESS NOTE component.")
S DIE=DIC,DA=+Y
S DR="1///^S X=""MAIN""_$C(59)_""GMTSPNSL"";2///Y;3///SPN;4///Y"
S DR=DR_";9///Selected Prog Notes"
D ^DIE
S ^GMT(142.1,+DA,1,0)="^142.17P^1^1"
S ^GMT(142.1,+DA,1,1,0)="8925.1"
S ^GMT(142.1,+DA,1,"B",8925.1,1)=""
S ^GMT(142.1,+DA,3.5,0)="^^1^1^"_DT_U
S ^GMT(142.1,+DA,3.5,1,0)="Allows selection of progress notes titles."
S DIK=DIE D IX^DIK ; Reindex file for new entry
S INCLUDE=0 D ENPOST^GMTSLOAD
Q
GETNUM() ; Get next available component record number <1000
Q +$O(^GMT(142.1,1000),-1)+1
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMTSPT12 1204 printed Dec 13, 2024@01:59:46 Page 2
GMTSPT12 ; SLC/JER - Post-install for Health Summary patch 12
+1 ;;2.7;Health Summary;**12**;Feb 28, 1996
HSCFILE ; Install Health Summary components
+1 NEW DIC,DLAYGO,DINUM,X,Y,INCLUDE
+2 IF +$ORDER(^GMT(142.1,"B","PROGRESS NOTES SELECTED",0))
Begin DoDot:1
+3 DO BMES^XPDUTL("SELECTED PROGRESS NOTES COMPONENT ALREADY INSTALLED.")
End DoDot:1
QUIT
+4 DO BMES^XPDUTL("Filing SELECTED PN component in HEALTH SUMMARY COMPONENT FILE.")
+5 SET (DIC,DLAYGO)=142.1
SET DIC(0)="NXL"
SET X="PROGRESS NOTES SELECTED"
+6 SET DINUM=$$GETNUM
+7 IF +DINUM'>1
Begin DoDot:1
+8 DO BMES^XPDUTL("Could not install SELECTED PROGRESS NOTE component.")
End DoDot:1
QUIT
+9 DO ^DIC
+10 IF +Y'>0
Begin DoDot:1
+11 DO BMES^XPDUTL("Could not install SELECTED PROGRESS NOTE component.")
End DoDot:1
QUIT
+12 SET DIE=DIC
SET DA=+Y
+13 SET DR="1///^S X=""MAIN""_$C(59)_""GMTSPNSL"";2///Y;3///SPN;4///Y"
+14 SET DR=DR_";9///Selected Prog Notes"
+15 DO ^DIE
+16 SET ^GMT(142.1,+DA,1,0)="^142.17P^1^1"
+17 SET ^GMT(142.1,+DA,1,1,0)="8925.1"
+18 SET ^GMT(142.1,+DA,1,"B",8925.1,1)=""
+19 SET ^GMT(142.1,+DA,3.5,0)="^^1^1^"_DT_U
+20 SET ^GMT(142.1,+DA,3.5,1,0)="Allows selection of progress notes titles."
+21 ; Reindex file for new entry
SET DIK=DIE
DO IX^DIK
+22 SET INCLUDE=0
DO ENPOST^GMTSLOAD
+23 QUIT
GETNUM() ; Get next available component record number <1000
+1 QUIT +$ORDER(^GMT(142.1,1000),-1)+1
