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

VENPCCX1.m

Go to the documentation of this file. 
  1. VENPCCX1 ; ILC/SLC/GIS - FUNCTION CALLS TO SUPPORT GUI CONFIGURATION INTERFACE ;  
  1.  ;;1.2t1;PCC+;;NOV 15, 2001
  1.  ;
  1.  ; COPYRITE INFORMATIX LABORATORIES, 2000
  1.  ; 
  1. GET(EF,LIST,GRP) ; EP-GIVEN EF NAME, LIST NAME, & PT GRP NAME, RETURNT LIST OF ITEMS
  1.  ; OUTPUT FORMAT: EF^LIST^PT GRP^MAX ITEMS ALLOWED^ITEM #1^...
  1. NEW N EIEN,LIEN,GNO,CNT,X,Y,%,IEN,IX,LMN,STG,MAX
  1.  I $L($G(EF)),$L($G(LIST)),$L($G(GRP))
  1.  E  Q ""
  1. INIT ;
  1.  I EF S EIEN=EF,EF=$P($G(^VEN(7.41,+EIEN,0)),U)
  1.  E  S EIEN=$O(^VEN(7.41,"B",EF,0)) I 'EIEN Q ""
  1.  I LIST S LIEN=LIST,LIST=$P($G(^VEN(7.98,+LIEN,0)),U)
  1.  E  S LIEN=$O(^VEN(7.98,"B",LIST,0)) I 'LIEN Q ""
  1.  I GRP S %=$$GRP1(GRP),GNO=+%,GRP=$P(%,U,2) I 'GNO Q ""
  1.  E  S GNO=$$GNO(GRP) I 'GNO Q ""
  1.  I $D(^VEN(7.98,LIEN,0)),$D(^VEN(7.41,EIEN,0))
  1.  E  Q ""
  1.  S LMN=$P($G(^VEN(7.98,LIEN,0)),U,3) I '$L(LMN) Q ""
  1.  S IX=GNO_LMN
  1.  S MAX=$$MAX^VENPCCMP(EIEN,LIEN) I 'MAX Q ""
  1. BLD S IEN=0,STG=EF_U_LIST_U_GRP_U_MAX
  1.  F  S IEN=$O(^VEN(7.93,"AC",IX,IEN)) Q:'IEN  D
  1.  . S X=$G(^VEN(7.93,IEN,0))
  1.  . S STG=STG_U_$P(X,U)_";"_$P(X,U,6)_";"_IEN_";"_$P(X,U,5)
  1.  . Q
  1.  Q STG
  1.  ; 
  1. GNO(GRP) ; EP-GROUP NUMBER
  1.  I '$L(GRP) Q ""
  1.  N X,Y
  1.  S X=$P($G(^DD(19707.93,.09,0)),U,3)
  1.  S Y=$F(X,GRP),X=$E(X,1,Y)
  1.  S X=$P(X,";",$L(X,";")-1)
  1.  Q +X
  1.  ; 
  1. STUFF(STG) ; EP-STUFF A LIST INTO THE SYSTEM PREF FILE
  1.  ; INPUT FORMAT: EF NAME^LIST NAME^PATIENT GRP NAME^MAX ALLOWED^ITEM1;CODE1^ITEM2;CODE2^...
  1.  N LIST,LIEN,GRP,GNO,X
  1.  I '$L(STG) Q
  1.  S LIST=$P(STG,U,2)
  1.  S LIEN=$O(^VEN(7.98,"B",LIST,0)) I 'LIEN Q
  1.  S GRP=$P(STG,U,3)
  1.  S GNO=$$GNO(GRP) I 'GNO Q
  1.  S X=$P(STG,U,5,99)
  1.  D SAVE^VENPCCMP(X,LIEN,GNO)
  1.  Q
  1.  ; 
  1. EF() ; EP-RETURN A LIST OF AVAILABLE ENCOUNTER FORMS
  1.  S EIEN=0 S STG=""
  1.  F  S EIEN=$O(^VEN(7.41,EIEN)) Q:'EIEN  D
  1.  . S X=$P($G(^VEN(7.41,EIEN,0)),U)
  1.  . I $L(STG) S STG=STG_U
  1.  . S STG=STG_X_";"_EIEN
  1.  . Q
  1.  Q STG
  1.  ; 
  1. LIST(EF) ; EP-RETURN A ^ DELIMITED STRING CONTAINING ALL LISTS
  1.  N STG,LIST,LIEN
  1.  S STG="",LIST=0
  1.  F  S LIST=$O(^VEN(7.98,"B",LIST)) Q:LIST=""  D
  1.  . I LIST="HEALTH MAINTENANCE REMINDERS" Q
  1.  . I LIST="PHYSICAL EXAM" Q
  1.  . S LIEN=$O(^VEN(7.98,"B",LIST,0)) I 'LIEN Q
  1.  . I $L(STG) S STG=STG_U
  1.  . S STG=STG_LIST_";"_LIEN
  1.  . Q
  1.  Q STG
  1.  ; 
  1. GRP() ; RETURN NAMES OF PATIENT GROUPS
  1.  S X=$P($G(^DD(19707.93,.09,0)),U,3) I '$L(X) Q
  1.  S STG=""
  1.  F I=1:1 S Y=$P(X,";",I) Q:Y=""  D
  1.  . S Z=$P(Y,":",2)
  1.  . I $L(STG) S STG=STG_U
  1.  . S STG=STG_Z_";"_I
  1.  . Q
  1.  Q STG
  1.  ; 
  1. DEPT() ; EP-SUPER BILL DEPTS
  1.  N NAME,IEN,STG
  1.  S NAME="" S STG=""
  1.  F  S NAME=$O(^VEN(7.95,"B",NAME)) Q:NAME=""  D
  1.  . I NAME["TELEPHONE" Q
  1.  . I NAME="CHART REVIEW" Q
  1.  . S IEN=$O(^VEN(7.95,"B",NAME,0)) I 'IEN Q
  1.  . I $L(STG) S STG=STG_U
  1.  . S STG=STG_NAME_";"_IEN
  1.  . Q
  1.  Q STG
  1.  ; 
  1. GRP1(GNO) ; 
  1.  N X,Y,Z
  1.  I 'GNO Q ""
  1.  S X=$P($G(^DD(19707.93,.09,0)),U,3) I '$L(X) Q ""
  1.  I X'[(GNO_":") Q ""
  1.  S Y=$P(X,(GNO_":"),2)
  1.  S Z=$P(Y,";") I '$L(Z) Q ""
  1.  Q GNO_U_Z
  1.  ; 
  1. HS() ; EP-RETURN A LIST OF HEALTH SUMMARY TYPES
  1.  N NAME,HIEN,X,%,STG
  1.  S STG="",NAME=""
  1.  F  S NAME=$O(^APCHSCTL("B",NAME)) Q:NAME=""  D
  1.  . S HIEN=$O(^APCHSCTL("B",NAME,0))
  1.  . I 'HIEN Q
  1.  . I $L(STG) S STG=STG_U
  1.  . S STG=STG_NAME_";"_HIEN
  1.  . Q
  1.  Q STG
  1.  ; 
  1. ADD(EF,CPT,PGRP,NAME,CODE) ; EP-ADD AN ENTRY TO A LIST
  1.  N LIST
  1.  I '$D(^VEN(7.41,+$G(EF),0)) Q 0
  1.  I '$D(^VEN(7.98,+$G(CPT),0)) Q 0
  1.  I $G(PGRP),PGRP=PGRP\1,PGRP>0,PGRP<5
  1.  E  Q 0
  1.  I $G(NAME)="" Q 0
  1.  S LIST=$$LIST^VENPCCMP(+EF,+CPT,PGRP) I '$L(LIST) Q 0
  1.  S LIST=LIST_U_NAME_";"_$G(CODE)_";;"
  1.  Q $$SUB^VENPCCMP(LIST,EF,CPT,PGRP)
  1.  ; 
  1. DEL(IEN) ; EP-DELETE AN ENTRY FROM THE LIST
  1.  S X=$G(^VEN(7.93,+$G(IEN),0)) I X="" Q 0
  1.  S EF=$P(X,U,11) I 'EF Q 0
  1.  S PGRP=$P(X,U,9) I 'PGRP Q 0
  1.  S %=$P(X,U,8) I %="" Q 0
  1.  S %=$E(%) I %="" Q
  1.  S CPT=$O(^VEN(7.98,"AD",%,0)) I 'CPT Q 0
  1.  I '$D(^VEN(7.41,+$G(EF),0)) Q 0
  1.  I '$D(^VEN(7.98,+$G(CPT),0)) Q 0
  1.  I $G(PGRP),PGRP=PGRP\1,PGRP>0,PGRP<5
  1.  E  Q 0
  1.  I '$D(^VEN(7.93,+$G(IEN),0)) Q 0
  1.  S DIK="^VEN(7.93,",DA=IEN D ^DIK ; DELETE THE ENTRY AND RESET
  1.  S LIST=$$LIST^VENPCCMP(+EF,+CPT,PGRP) I '$L(LIST) Q 0
  1.  Q $$SUB^VENPCCMP(LIST,EF,CPT,PGRP)
  1.  ; 
  1.  ; 
  1. CP(CIEN) ; EP-CLINIC PREFERENCES
  1.  N STG,X,Y,%,PIEN,HIEN,EIEN,CLIEN,ENAME,HNAME,PNAME,CLNAME
  1.  S STG=$G(^VEN(7.95,+$G(CIEN),2)) I STG="" Q ""
  1.  S PIEN=$P(STG,U,2),HIEN=$P(STG,U,6),EIEN=$P(STG,U,5)
  1.  S PNAME=$P($G(^VA(200,+PIEN,0)),U)
  1.  S ENAME=$P($G(^VEN(7.41,+EIEN,0)),U)
  1.  S HNAME=$P($G(^APCHSCTL(+HIEN,0)),U)
  1.  S CLIEN=$P(^VEN(7.95,+$G(CIEN),0),U,4)
  1.  S CLNAME=$P($G(^DIC(40.7,CLIEN,0)),U)
  1.  S X=PNAME_";"_PIEN_U_ENAME_";"_EIEN_U_HNAME_";"_HIEN_U_CLIEN_";"_CLNAME
  1.  Q X
  1.  ; 
  1. ER() ; EP-EMERGENCY DEPARTMENTS
  1.  N CIEN,X,STG,CNAME
  1.  S STG="",CIEN=0
  1.  F  S CIEN=$O(^VEN(7.95,CIEN)) Q:'CIEN  D
  1.  . S X=$P($G(^VEN(7.95,CIEN,2)),U,12) I 'X Q
  1.  . S CNAME=$P($G(^VEN(7.95,CIEN,0)),U)
  1.  . I $L(STG) S STG=STG_U
  1.  . S STG=STG_CNAME_";"_CIEN
  1.  . Q
  1.  Q STG
  1.  ;