GMRV408 ;HIRMFO/DAD - Post Init to Add PN ;3/10/99 11:06
;;4.0;Vitals/Measurements;**8**;Apr 25, 1997
N DA,DIE,DR
D MES^XPDUTL("Adding 'PN' to the PCE ABBREVIATION field (#7)")
D MES^XPDUTL("for the 'PAIN' entry in the GMRV VITAL TYPE")
D MES^XPDUTL("file (#120.51).")
S DA=+$O(^GMRD(120.51,"B","PAIN",0))
I $P($G(^GMRD(120.51,DA,0)),U)="PAIN" D
. S DIE="^GMRD(120.51,",DR="7///PN"
. D ^DIE
. Q
E D
. D MES^XPDUTL("'PAIN' entry not found in the GMRV VITAL TYPE")
. D MES^XPDUTL("file (#120.51). 'PN' not added to the PCE")
. D MES^XPDUTL("ABBREVIATION field (#7).")
. Q
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRV408 608 printed Dec 13, 2024@01:55:57 Page 2
GMRV408 ;HIRMFO/DAD - Post Init to Add PN ;3/10/99 11:06
+1 ;;4.0;Vitals/Measurements;**8**;Apr 25, 1997
+2 NEW DA,DIE,DR
+3 DO MES^XPDUTL("Adding 'PN' to the PCE ABBREVIATION field (#7)")
+4 DO MES^XPDUTL("for the 'PAIN' entry in the GMRV VITAL TYPE")
+5 DO MES^XPDUTL("file (#120.51).")
+6 SET DA=+$ORDER(^GMRD(120.51,"B","PAIN",0))
+7 IF $PIECE($GET(^GMRD(120.51,DA,0)),U)="PAIN"
Begin DoDot:1
+8 SET DIE="^GMRD(120.51,"
SET DR="7///PN"
+9 DO ^DIE
+10 QUIT
End DoDot:1
+11 IF '$TEST
Begin DoDot:1
+12 DO MES^XPDUTL("'PAIN' entry not found in the GMRV VITAL TYPE")
+13 DO MES^XPDUTL("file (#120.51). 'PN' not added to the PCE")
+14 DO MES^XPDUTL("ABBREVIATION field (#7).")
+15 QUIT
End DoDot:1
+16 QUIT
