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

GMTSP37.m

Go to the documentation of this file.
  1. GMTSP37 ; CIO/SLC - Post Install GMTS*2.7*37 ; 07/18/2000
  1. ;;2.7;Health Summary;**37**;Oct 20, 1995
  1. ;
  1. Q
  1. POST ; Post Install
  1. D BM(" Setting up CPT Modifiers in Health Summary Components"),BL K ^TMP("GMTSP37")
  1. N GMTSABR F GMTSABR="RP","OE","SR","SRO","NSR","SNSR" D COM,TYP K ^TMP("GMTSP37")
  1. MSG N GMTSBLD,GMTSINST,GMTSHORT I +$$ROK("GMTSXPS1")>0 S GMTSHORT="",GMTSINST="",GMTSBLD="GMTS*2.7*37" D SEND^GMTSXPS1
  1. Q
  1. COM ; Update Health Summary Components
  1. Q:'$L($G(GMTSABR)) N GMTSCI,GMTSCNM,GMTST,GMTSTI,GMTSSI
  1. S GMTSCI=+($O(^GMT(142.1,"C",GMTSABR,0))) Q:GMTSCI=0 S GMTSCNM=$P($G(^GMT(142.1,+GMTSCI,0)),"^",9) S:'$L(GMTSCNM) GMTSCNM=$P($G(^GMT(142.1,+GMTSCI,0)),"^") Q:'$L(GMTSCNM) S GMTST=GMTSCNM F Q:$L(GMTST)>22 S GMTST=GMTST_" "
  1. S GMTST=" "_GMTST_" "_GMTSABR D M(GMTST),EDC S GMTSTI=0 F S GMTSTI=$O(^GMT(142,"AE",GMTSCI,GMTSTI)) Q:+GMTSTI=0 S GMTSSI=0 F S GMTSSI=$O(^GMT(142,"AE",GMTSCI,GMTSTI,GMTSSI)) Q:+GMTSSI=0 S ^TMP("GMTSP37",GMTSTI,GMTSSI,GMTSCI)=""
  1. Q
  1. EDC ; Edit Component
  1. N X,Y,DIC,DIE,DTOUT,DA S DA=+($G(GMTSCI)) Q:DA=0 Q:'$D(^GMT(142.1,DA,0))
  1. S (DIC,DIE)="^GMT(142.1,",DR="14///Y"
  1. ; DBIA 10018 call ^DIE
  1. D ^DIE
  1. Q
  1. TYP ; Update Health Summary Types
  1. N GMTSTI,GMTSTN,GMTSSI,GMTSCI,GMTSCN,GMTST,GMTSC,GMTSCT S (GMTSC,GMTSCT,GMTSTI)=0 F S GMTSTI=$O(^TMP("GMTSP37",GMTSTI)) Q:+GMTSTI=0 D
  1. . S (GMTSCT,GMTSSI)=0 F S GMTSSI=$O(^TMP("GMTSP37",GMTSTI,GMTSSI)) Q:+GMTSSI=0 D
  1. . . S GMTSCT=GMTSCT+1,GMTSCI=0 F S GMTSCI=$O(^TMP("GMTSP37",GMTSTI,GMTSSI,GMTSCI)) Q:+GMTSCI=0 D
  1. . . . S GMTSTN=$P($G(^GMT(142,GMTSTI,0)),"^",1),GMTSC=GMTSC+1 D:GMTSC=1 BM(" Setting up CPT Modifiers in Health Summary Types"),BL S GMTST=" "_GMTSTN_" " D:GMTSCT=1 M(GMTST) D EDT
  1. Q
  1. EDT ; Edit Type
  1. N X,Y,DIC,DIE,DTOUT,DA Q:+($G(GMTSTI))=0 Q:+($G(GMTSSI))=0 S DA(1)=+($G(GMTSTI)),DA=+($G(GMTSSI)),(DIC,DIE)="^GMT(142,"_DA(1)_",1,",DR="9///Y" D ^DIE
  1. Q
  1. BM(X) ; Blank Line with Message
  1. Q:$D(GMTSQT)
  1. ; DBIA 10141 call BMES^XPDUTL
  1. D:$D(XPDNM) BMES^XPDUTL($G(X)) W:'$D(XPDNM) !!,$G(X) Q
  1. BL ; Blank Line with w/o Message
  1. Q:$D(GMTSQT)
  1. ; DBIA 10141 call MES^XPDUTL
  1. D:$D(XPDNM) MES^XPDUTL(" ") W:'$D(XPDNM) !," " Q
  1. M(X) ; Message
  1. Q:$D(GMTSQT)
  1. ; DBIA 10141 call MES^XPDUTL
  1. D:$D(XPDNM) MES^XPDUTL($G(X)) W:'$D(XPDNM) !,$G(X) Q
  1. ROK(X) ; Routine OK
  1. S X=$G(X) Q:'$L(X) 0 Q:$L(X)>8 0
  1. ; DBIA 10096 access ^%ZOSF
  1. X ^%ZOSF("TEST")
  1. Q:$T 1 Q 0