VENPCCKG ; IHS/OIT/GIS - KNOWLEDGEBASE RPCS FOR GUI EDITOR ;
;;2.6;PCC+;**1,3**;APR 03, 2012;Build 24
;
;
;
;
PRVLKUP(OUT,IN) ; EP - RPC: VEN WCM LIST PROVIDERS
S OUT="BMX ADO SS^VEN WCM LIST PROVIDERS^^~~~~~APRV~BMXADOV2"
Q
;
PTED(OUT,IN) ; EP - RPC: VEN KB EDIT PT ED TOPICS
; INCLUDES BOTH AG AND NUTRITION TOPICS
S OUT=$$CKKEY I $L(OUT) Q
S OUT="BMX ADO SS^VEN KB PT ED ITEMS^^AC~CH~CHZ~9999~~"
Q
;
DEV(OUT,IN) ; EP - RPC: VEN KB EDIT DEV ITEMS
S OUT=$$CKKEY I $L(OUT) Q
S OUT="BMX ADO SS^VEN KB PT ED ITEMS^^B~34~37~9999"
Q
;
EXAM(OUT,IN) ; EP - RPC: VEN KB EDIT EXAM ITEMS
S OUT=$$CKKEY I $L(OUT) Q
S OUT="BMX ADO SS^VEN KB PT ED ITEMS^^B~27~30~9999"
Q
;
AUT(OUT,IN) ; EP - RPC: VEN KB EDIT AUTISM SCREENING ITEMS
S OUT=$$CKKEY I $L(OUT) Q
S OUT="BMX ADO SS^VEN KB PT ED ITEMS^^B~9~9~9999"
Q
;
CKKEY() ; EP - KEY CHECK
I '$G(DUZ) Q ""
I $D(^XUSEC("VENZKBEDIT",DUZ)) Q ""
Q "You do not hold the required VENZKBEDIT key. Request denied..."
;
TXPOP ; ---------------------------------------
;
WCPEP(OUT,IN) ; EP - RPC: VEN WCM PT ED TX POP
; WELL CHILD PATIENT ED - GIVEN A VISIT IEN, POPULATE THE TRANSACTION FILE
; OUT = TX TABLE GEN STRING
N VIEN
S VIEN=+$G(IN)
I '$D(^AUPNVSIT(VIEN,0)) S OUT="" Q
S IN=VIEN_"|1"
D PEPOP^VENPCCKT(IN)
Q
;
WCNP(OUT,IN) ; EP - RPC: VEN WCM NUTRITION TX POP
; WELL CHILD PATIENT ED - GIVEN A VISIT IEN, POPULATE THE TRANSACTION FILE
; OUT = TX TABLE GEN STRING
N VIEN
S VIEN=+$G(IN)
I '$D(^AUPNVSIT(VIEN,0)) S OUT="" Q
S IN=VIEN_"|6"
D PEPOP^VENPCCKT(IN)
Q
;
WCEXP(OUT,IN) ; EP - RPC: VEN WCM EXAM TX POP
; WELL CHILD EXAMS - GIVEN A VISIT IEN, POPULATE THE TRANSACTION FILE
; OUT = TX TABLE GEN STRING
N VIEN
S VIEN=+$G(IN)
I '$D(^AUPNVSIT(VIEN,0)) S OUT="" Q
S IN=IN_"|3"
D EXPOP^VENPCCKT(IN)
Q
;
WCDBP(OUT,IN) ; EP - RPC: VEN WCM DEV BENCHMARKS TX POP
; WELL CHILD DEVEL BENCHMARKS - GIVEN A VISIT IEN, POPULATE THE TRANSACTION FILE
; OUT = TX TABLE GEN STRING
N VIEN
S VIEN=+$G(IN)
I '$D(^AUPNVSIT(VIEN,0)) S OUT="" Q
S IN=VIEN_"|2"
D POP^VENPCCKD(IN)
Q
;
WCDCP(OUT,IN) ; EP - RPC: VEN WCM DEV COMMENTS TX POP
; WELL CHILD DEVEL COMMENTS - GIVEN A VISIT IEN, POPULATE THE TRANSACTION FILE
; OUT = TX TABLE GEN STRING
N VIEN
S VIEN=+$G(IN)
I '$D(^AUPNVSIT(VIEN,0)) S OUT="" Q
S IN=VIEN_"|9"
D POP^VENPCCKD(IN)
Q
;
TXFLUSH ; --------------------------------------
;
WCPEF(OUT,IN) ; EP - RPC: VEN WCM PT ED TX FLUSH
; FLUSH THE PT ED TOPICS FROM TX FILE TO V FILES
; IN = VISIT IEN|LOU|TIME|EDUCATOR IEN
I '$L($G(IN)) S OUT="" Q
S IN="1|"_IN
D PEFLUSH^VENPCCKT(IN)
Q
;
WCNF(OUT,IN) ; EP - RPC: VEN WCM NUTRITION TX FLUSH
; FLUSH THE NUTRITION TOPICS FROM TX FILE TO V FILES
; IN = VISIT IEN|LOU|TIME|EDUCATOR IEN|INFANT FEEDING CHOICE
I '$L($G(IN)) S OUT="" Q
S IN="6|"_IN
D PEFLUSH^VENPCCKT(IN)
Q
;
WCEXF(OUT,IN) ; EP - RPC: VEN WCM EXAM TX FLUSH
; FLUSH EXAM RESULTS FROM TX FILE TO V FILES
S OUT=""
I '$D(^AUPNVSIT(+$D(IN),0)) Q
D EXFLUSH^VENPCCKT(IN)
Q
;
WCDF(OUT,IN) ; EP - RPC: VEN WCM DEVEL TX FLUSH
; FLUSH DEVEL COMMENTS FROM TX FILE TO V FILES
S OUT=""
I '$D(^AUPNVSIT(+$D(IN),0)) Q
D FLUSH^VENPCCKD(IN)
Q
;
; ----------------------------------------
;
PETODAY(OUT,IN) ; EP - RPC: VEN WCM PTED TODAY
; IN = DFN, OUT = VISIT IEN|PROVIDER NAME|PROVIDER IEN|LOU|TIME
N DFN
S DFN=+$G(IN)
I '$D(^DPT(DFN,0)) S OUT="" Q
D TODAY^VENPCCKT(DFN,"P")
Q
;
NTODAY(OUT,IN) ; EP - RPC: VEN WCM NUTR TODAY
; IN = DFN, OUT = VISIT IEN|PROVIDER NAME|PROVIDER IEN|LOU|TIME|INFANT FEEDING CHOICE
N DFN
S DFN=+$G(IN)
I '$D(^DPT(DFN,0)) S OUT="" Q
D TODAY^VENPCCKT(DFN,"N")
Q
;
GG(OUT,IN) ; EP - RPC: VEN WCM GG POP ; RETURN THE GROWTH GRID DATA STRING
N ICIEN,GCIEN,CIEN,EIEN,MM,PCE,HIEN,HDR,TAG,VAL,X,DFN,Z,%
S DFN=+$G(IN) I '$D(^DPT(DFN,0)) Q
S OUT=""
S ICIEN=$O(^VEN(7.62,"B","PEDS GROWTH CHART",0)) I 'ICIEN Q
S GCIEN=$O(^VEN(7.62,"B","IMMUNIZATION REPORT",0)) I 'GCIEN Q
F CIEN=ICIEN,GCIEN S EIEN=0 F S EIEN=$O(^VEN(7.62,CIEN,3,"B",EIEN)) Q:'EIEN D
. S TAG=$G(^VEN(7.61,EIEN,1)) I '$L(TAG) Q
. S X=$G(^VEN(7.61,EIEN,0)) I X="" Q
. S HIEN=$P(X,U,2) I 'HIEN Q
. S PCE=$P(X,U,3) I 'PCE Q
. S HDR=$P($G(^VEN(7.42,HIEN,0)),U) I HDR="" Q
. X ("S VAL=$$"_TAG_"(DFN)")
. S X=$G(Z)
. S $P(X,"\",PCE)=VAL
. S Z=X
. Q
S OUT=$G(Z)
S X="BI" F S X=$O(@X) Q:$E(X,1,2)'="BI" K @X ; CLEANUP BI VARIABLES
Q
;
TV(OUT,IN) ; EP - RPC: VEN GEN TEST WCM VISIT AND RETURN PATIENT DFN|VISIT IEN
; GIVEN A CHART NUMBER, GENERATE A TEST VISIT FOR TODAY
; IN = HRN OR HRN;1 ; IF HRN;1 THEN THE V PATIENT ED AND V WELL CHILD FILES WILL BE POPULATED AS WELL
N AUPNPAT,VIEN,CSIEN,CLIEN,PRV,PRVIEN,CL,X,Y,Z,DIC,DIE,DA,DR,%,GBL,NIEN,PFLAG
S OUT=""
I $P($G(IN),";",2) S PFLAG=1,IN=+IN
S AUPNPAT=$$CHART^VENPCCU(+$G(IN),+$G(DUZ(2))) I '$D(^DPT(+AUPNPAT,0)) Q
S X=+$O(^AUPNVSIT("AA",AUPNPAT,0))
I (9999999-X)=(DT_".08") D I $L(OUT) G TVPOV ; VISIT ALREADY EXISTS
. S VIEN=+$O(^AUPNVSIT("AA",AUPNPAT,X,0))
. I $D(^AUPNVSIT(VIEN,0)) S OUT=AUPNPAT_"|"_VIEN
. Q
S CSIEN=$O(^DIC(40.7,"C","01",0)) I 'CSIEN Q ; CLINIC STOP
S VIEN=$$VISIT^VENPCC3(AUPNPAT,(DT_".08"),DUZ(2),CSIEN) I 'VIEN Q
S OUT=AUPNPAT_"|"_VIEN ; AT THIS POINT A VALID VISIT STUB HAS BEEN CREATED
; ADD A V POV AND V PRV ENTRY TO MAKE IT "OFFICIAL"
TVPOV S DIC="^AUTNPOV(",DIC(0)="L",DLAYGO=9999999.27,X="WELL CHILD EXAM"
D ^DIC I Y=-1 G TVPRV
S NIEN=+Y ; GET IEN FOR 'WELL CHILD EXAM' PROVIDER NARRATIVE
S X=$$ICD^VENPCCU("V20.2") I 'X G TVX ; GET THE ICD9
S DIC="^AUPNVPOV(",DIC(0)="L",X="""`"_X_"""",DLAYGO=9000010.07
D ^DIC I Y=-1 G TVPRV
S DA=+Y,DIE=DIC,DR=".02////^S X=AUPNPAT;.03////^S X=VIEN;.04////^S X=NIEN;.12////P"
L +^AUPNVPOV(DA):1 I D ^DIE L -^AUPNVPOV(DA)
TVPRV S GBL="^VA(200)"
I $P($G(^DD(9000010.06,.01,0)),U,2)[6 S GBL=U_$C(68)_"IC(16)"
S PRV=$O(@GBL@("B","SHORR,GR"))
I '$L(PRV) G TVX
S PRVIEN=$O(@GBL@("B",PRV,0))
I 'PRVIEN G TVX
S DIC="^AUPNVPRV(",DIC(0)="L",X="""`"_PRVIEN_"""",DLAYGO=9000010.06
D ^DIC I Y=-1 G TVX
S DA=+Y,DIE=DIC,DR=".02////^S X=AUPNPAT;.03////^S X=VIEN;.04////P"
L +^AUPNVPOV(DA):1 I D ^DIE L -^AUPNVPOV(DA)
I '$G(PFLAG) G TVX ; PT ED ENTRIIES NOT REQUIRED
TVPED S PRVIEN=$O(^VA(200,"B",PRV,0)) I 'PRVIEN Q
S NTIEN=$O(^AUTTEDT("B","CHT-NUTRITION",999999),-1) I 'NTIEN G TVX
S ETIEN=$O(^AUTTEDT("B","CHT-PARENTING",999999),-1) I 'ETIEN G TVX
S DIC="^AUPNVPED(",DIC(0)="L",X="""`"_NTIEN_""""
D ^DIC I Y=-1 Q
S DA=+Y,DIE=DIC,DR=".02////^S X=AUPNPAT;.03////^S X=VIEN;.05////^S X=PRVIEN;.06////^S X=2;.08////^S X=22"
L +^AUPNVPOV(DA):1 I D ^DIE L -^AUPNVPOV(DA)
S ^AUPNVPED(DA,1,0)="^9000010.161^2^2"
S ^AUPNVPED(DA,1,1,0)="Offer variety of health foods"
S ^AUPNVPED(DA,1,"B","Offer variety of health foods",1)=""
S ^AUPNVPED(DA,1,2,0)="Do not force eating"
S ^AUPNVPED(DA,1,"B","Do not force eating",2)=""
S DIC="^AUPNVPED(",DIC(0)="L",X="""`"_ETIEN_""""
D ^DIC I Y=-1 Q
S DA=+Y,DIE=DIC,DR=".02////^S X=AUPNPAT;.03////^S X=VIEN;.05////^S X=PRVIEN;.06////^S X=3;.08////^S X=33"
L +^AUPNVPED(DA):1 I D ^DIE L -^AUPNVPED(DA)
S ^AUPNVPED(DA,1,0)="^9000010.161^2^2"
S ^AUPNVPED(DA,1,1,0)="Read books together 30 minutes a day"
S ^AUPNVPED(DA,1,"B","Read books together 30 minutes",1)=""
S ^AUPNVPED(DA,1,2,0)="Do not expect child to share all toys"
S ^AUPNVPED(DA,1,"B","Do not expect child to share a",2)=""
TVWC S DIC="^AUPNVWC(",DIC(0)="L",X=""""_0_""""
D ^DIC I Y=-1 Q
S DA=+Y,DIE=DIC,DR=".02////^S X=AUPNPAT;.03////^S X=VIEN;.04////^S X=PRVIEN;.06////^S X=3;.05////^S X=33"
S DR=DR_";.09////^S X=PRVIEN;.08////^S X=2;.07////^S X=22"
L +^AUPNVWC(DA):1 I D ^DIE L -^AUPNVWC(DA)
S ^AUPNVWC(DA,1,0)="^9000010.461^2^2"
S ^AUPNVWC(DA,1,1,0)="Read books together 30 minutes a day"
S ^AUPNVWC(DA,1,"B","Read books together 30 minutes",1)=""
S ^AUPNVWC(DA,1,2,0)="Do not expect child to share all toys"
S ^AUPNVWC(DA,1,"B","Do not expect child to share a",2)=""
S ^AUPNVWC(DA,1,0)="^9000010.465^2^2"
S ^AUPNVWC(DA,5,1,0)="Offer variety of health foods"
S ^AUPNVWC(DA,1,"B","Offer variety of health foods",1)=""
S ^AUPNVWC(DA,5,2,0)="Do not force eating"
S ^AUPNVWC(DA,1,"B","Do not force eating",2)=""
TVX D ^XBFMK
Q
;
VENPCCKG ; IHS/OIT/GIS - KNOWLEDGEBASE RPCS FOR GUI EDITOR ;
+1 ;;2.6;PCC+;**1,3**;APR 03, 2012;Build 24
+2 ;
+3 ;
+4 ;
+5 ;
PRVLKUP(OUT,IN) ; EP - RPC: VEN WCM LIST PROVIDERS
+1 SET OUT="BMX ADO SS^VEN WCM LIST PROVIDERS^^~~~~~APRV~BMXADOV2"
+2 QUIT
+3 ;
PTED(OUT,IN) ; EP - RPC: VEN KB EDIT PT ED TOPICS
+1 ; INCLUDES BOTH AG AND NUTRITION TOPICS
+2 SET OUT=$$CKKEY
IF $LENGTH(OUT)
QUIT
+3 SET OUT="BMX ADO SS^VEN KB PT ED ITEMS^^AC~CH~CHZ~9999~~"
+4 QUIT
+5 ;
DEV(OUT,IN) ; EP - RPC: VEN KB EDIT DEV ITEMS
+1 SET OUT=$$CKKEY
IF $LENGTH(OUT)
QUIT
+2 SET OUT="BMX ADO SS^VEN KB PT ED ITEMS^^B~34~37~9999"
+3 QUIT
+4 ;
EXAM(OUT,IN) ; EP - RPC: VEN KB EDIT EXAM ITEMS
+1 SET OUT=$$CKKEY
IF $LENGTH(OUT)
QUIT
+2 SET OUT="BMX ADO SS^VEN KB PT ED ITEMS^^B~27~30~9999"
+3 QUIT
+4 ;
AUT(OUT,IN) ; EP - RPC: VEN KB EDIT AUTISM SCREENING ITEMS
+1 SET OUT=$$CKKEY
IF $LENGTH(OUT)
QUIT
+2 SET OUT="BMX ADO SS^VEN KB PT ED ITEMS^^B~9~9~9999"
+3 QUIT
+4 ;
CKKEY() ; EP - KEY CHECK
+1 IF '$GET(DUZ)
QUIT ""
+2 IF $DATA(^XUSEC("VENZKBEDIT",DUZ))
QUIT ""
+3 QUIT "You do not hold the required VENZKBEDIT key. Request denied..."
+4 ;
TXPOP ; ---------------------------------------
+1 ;
WCPEP(OUT,IN) ; EP - RPC: VEN WCM PT ED TX POP
+1 ; WELL CHILD PATIENT ED - GIVEN A VISIT IEN, POPULATE THE TRANSACTION FILE
+2 ; OUT = TX TABLE GEN STRING
+3 NEW VIEN
+4 SET VIEN=+$GET(IN)
+5 IF '$DATA(^AUPNVSIT(VIEN,0))
SET OUT=""
QUIT
+6 SET IN=VIEN_"|1"
+7 DO PEPOP^VENPCCKT(IN)
+8 QUIT
+9 ;
WCNP(OUT,IN) ; EP - RPC: VEN WCM NUTRITION TX POP
+1 ; WELL CHILD PATIENT ED - GIVEN A VISIT IEN, POPULATE THE TRANSACTION FILE
+2 ; OUT = TX TABLE GEN STRING
+3 NEW VIEN
+4 SET VIEN=+$GET(IN)
+5 IF '$DATA(^AUPNVSIT(VIEN,0))
SET OUT=""
QUIT
+6 SET IN=VIEN_"|6"
+7 DO PEPOP^VENPCCKT(IN)
+8 QUIT
+9 ;
WCEXP(OUT,IN) ; EP - RPC: VEN WCM EXAM TX POP
+1 ; WELL CHILD EXAMS - GIVEN A VISIT IEN, POPULATE THE TRANSACTION FILE
+2 ; OUT = TX TABLE GEN STRING
+3 NEW VIEN
+4 SET VIEN=+$GET(IN)
+5 IF '$DATA(^AUPNVSIT(VIEN,0))
SET OUT=""
QUIT
+6 SET IN=IN_"|3"
+7 DO EXPOP^VENPCCKT(IN)
+8 QUIT
+9 ;
WCDBP(OUT,IN) ; EP - RPC: VEN WCM DEV BENCHMARKS TX POP
+1 ; WELL CHILD DEVEL BENCHMARKS - GIVEN A VISIT IEN, POPULATE THE TRANSACTION FILE
+2 ; OUT = TX TABLE GEN STRING
+3 NEW VIEN
+4 SET VIEN=+$GET(IN)
+5 IF '$DATA(^AUPNVSIT(VIEN,0))
SET OUT=""
QUIT
+6 SET IN=VIEN_"|2"
+7 DO POP^VENPCCKD(IN)
+8 QUIT
+9 ;
WCDCP(OUT,IN) ; EP - RPC: VEN WCM DEV COMMENTS TX POP
+1 ; WELL CHILD DEVEL COMMENTS - GIVEN A VISIT IEN, POPULATE THE TRANSACTION FILE
+2 ; OUT = TX TABLE GEN STRING
+3 NEW VIEN
+4 SET VIEN=+$GET(IN)
+5 IF '$DATA(^AUPNVSIT(VIEN,0))
SET OUT=""
QUIT
+6 SET IN=VIEN_"|9"
+7 DO POP^VENPCCKD(IN)
+8 QUIT
+9 ;
TXFLUSH ; --------------------------------------
+1 ;
WCPEF(OUT,IN) ; EP - RPC: VEN WCM PT ED TX FLUSH
+1 ; FLUSH THE PT ED TOPICS FROM TX FILE TO V FILES
+2 ; IN = VISIT IEN|LOU|TIME|EDUCATOR IEN
+3 IF '$LENGTH($GET(IN))
SET OUT=""
QUIT
+4 SET IN="1|"_IN
+5 DO PEFLUSH^VENPCCKT(IN)
+6 QUIT
+7 ;
WCNF(OUT,IN) ; EP - RPC: VEN WCM NUTRITION TX FLUSH
+1 ; FLUSH THE NUTRITION TOPICS FROM TX FILE TO V FILES
+2 ; IN = VISIT IEN|LOU|TIME|EDUCATOR IEN|INFANT FEEDING CHOICE
+3 IF '$LENGTH($GET(IN))
SET OUT=""
QUIT
+4 SET IN="6|"_IN
+5 DO PEFLUSH^VENPCCKT(IN)
+6 QUIT
+7 ;
WCEXF(OUT,IN) ; EP - RPC: VEN WCM EXAM TX FLUSH
+1 ; FLUSH EXAM RESULTS FROM TX FILE TO V FILES
+2 SET OUT=""
+3 IF '$DATA(^AUPNVSIT(+$DATA(IN),0))
QUIT
+4 DO EXFLUSH^VENPCCKT(IN)
+5 QUIT
+6 ;
WCDF(OUT,IN) ; EP - RPC: VEN WCM DEVEL TX FLUSH
+1 ; FLUSH DEVEL COMMENTS FROM TX FILE TO V FILES
+2 SET OUT=""
+3 IF '$DATA(^AUPNVSIT(+$DATA(IN),0))
QUIT
+4 DO FLUSH^VENPCCKD(IN)
+5 QUIT
+6 ;
+7 ; ----------------------------------------
+8 ;
PETODAY(OUT,IN) ; EP - RPC: VEN WCM PTED TODAY
+1 ; IN = DFN, OUT = VISIT IEN|PROVIDER NAME|PROVIDER IEN|LOU|TIME
+2 NEW DFN
+3 SET DFN=+$GET(IN)
+4 IF '$DATA(^DPT(DFN,0))
SET OUT=""
QUIT
+5 DO TODAY^VENPCCKT(DFN,"P")
+6 QUIT
+7 ;
NTODAY(OUT,IN) ; EP - RPC: VEN WCM NUTR TODAY
+1 ; IN = DFN, OUT = VISIT IEN|PROVIDER NAME|PROVIDER IEN|LOU|TIME|INFANT FEEDING CHOICE
+2 NEW DFN
+3 SET DFN=+$GET(IN)
+4 IF '$DATA(^DPT(DFN,0))
SET OUT=""
QUIT
+5 DO TODAY^VENPCCKT(DFN,"N")
+6 QUIT
+7 ;
GG(OUT,IN) ; EP - RPC: VEN WCM GG POP ; RETURN THE GROWTH GRID DATA STRING
+1 NEW ICIEN,GCIEN,CIEN,EIEN,MM,PCE,HIEN,HDR,TAG,VAL,X,DFN,Z,%
+2 SET DFN=+$GET(IN)
IF '$DATA(^DPT(DFN,0))
QUIT
+3 SET OUT=""
+4 SET ICIEN=$ORDER(^VEN(7.62,"B","PEDS GROWTH CHART",0))
IF 'ICIEN
QUIT
+5 SET GCIEN=$ORDER(^VEN(7.62,"B","IMMUNIZATION REPORT",0))
IF 'GCIEN
QUIT
+6 FOR CIEN=ICIEN,GCIEN
SET EIEN=0
FOR
SET EIEN=$ORDER(^VEN(7.62,CIEN,3,"B",EIEN))
IF 'EIEN
QUIT
Begin DoDot:1
+7 SET TAG=$GET(^VEN(7.61,EIEN,1))
IF '$LENGTH(TAG)
QUIT
+8 SET X=$GET(^VEN(7.61,EIEN,0))
IF X=""
QUIT
+9 SET HIEN=$PIECE(X,U,2)
IF 'HIEN
QUIT
+10 SET PCE=$PIECE(X,U,3)
IF 'PCE
QUIT
+11 SET HDR=$PIECE($GET(^VEN(7.42,HIEN,0)),U)
IF HDR=""
QUIT
+12 XECUTE ("S VAL=$$"_TAG_"(DFN)")
+13 SET X=$GET(Z)
+14 SET $PIECE(X,"\",PCE)=VAL
+15 SET Z=X
+16 QUIT
End DoDot:1
+17 SET OUT=$GET(Z)
+18 ; CLEANUP BI VARIABLES
SET X="BI"
FOR
SET X=$ORDER(@X)
IF $EXTRACT(X,1,2)'="BI"
QUIT
KILL @X
+19 QUIT
+20 ;
TV(OUT,IN) ; EP - RPC: VEN GEN TEST WCM VISIT AND RETURN PATIENT DFN|VISIT IEN
+1 ; GIVEN A CHART NUMBER, GENERATE A TEST VISIT FOR TODAY
+2 ; IN = HRN OR HRN;1 ; IF HRN;1 THEN THE V PATIENT ED AND V WELL CHILD FILES WILL BE POPULATED AS WELL
+3 NEW AUPNPAT,VIEN,CSIEN,CLIEN,PRV,PRVIEN,CL,X,Y,Z,DIC,DIE,DA,DR,%,GBL,NIEN,PFLAG
+4 SET OUT=""
+5 IF $PIECE($GET(IN),";",2)
SET PFLAG=1
SET IN=+IN
+6 SET AUPNPAT=$$CHART^VENPCCU(+$GET(IN),+$GET(DUZ(2)))
IF '$DATA(^DPT(+AUPNPAT,0))
QUIT
+7 SET X=+$ORDER(^AUPNVSIT("AA",AUPNPAT,0))
+8 ; VISIT ALREADY EXISTS
IF (9999999-X)=(DT_".08")
Begin DoDot:1
+9 SET VIEN=+$ORDER(^AUPNVSIT("AA",AUPNPAT,X,0))
+10 IF $DATA(^AUPNVSIT(VIEN,0))
SET OUT=AUPNPAT_"|"_VIEN
+11 QUIT
End DoDot:1
IF $LENGTH(OUT)
GOTO TVPOV
+12 ; CLINIC STOP
SET CSIEN=$ORDER(^DIC(40.7,"C","01",0))
IF 'CSIEN
QUIT
+13 SET VIEN=$$VISIT^VENPCC3(AUPNPAT,(DT_".08"),DUZ(2),CSIEN)
IF 'VIEN
QUIT
+14 ; AT THIS POINT A VALID VISIT STUB HAS BEEN CREATED
SET OUT=AUPNPAT_"|"_VIEN
+15 ; ADD A V POV AND V PRV ENTRY TO MAKE IT "OFFICIAL"
TVPOV SET DIC="^AUTNPOV("
SET DIC(0)="L"
SET DLAYGO=9999999.27
SET X="WELL CHILD EXAM"
+1 DO ^DIC
IF Y=-1
GOTO TVPRV
+2 ; GET IEN FOR 'WELL CHILD EXAM' PROVIDER NARRATIVE
SET NIEN=+Y
+3 ; GET THE ICD9
SET X=$$ICD^VENPCCU("V20.2")
IF 'X
GOTO TVX
+4 SET DIC="^AUPNVPOV("
SET DIC(0)="L"
SET X="""`"_X_""""
SET DLAYGO=9000010.07
+5 DO ^DIC
IF Y=-1
GOTO TVPRV
+6 SET DA=+Y
SET DIE=DIC
SET DR=".02////^S X=AUPNPAT;.03////^S X=VIEN;.04////^S X=NIEN;.12////P"
+7 LOCK +^AUPNVPOV(DA):1
IF $TEST
DO ^DIE
LOCK -^AUPNVPOV(DA)
TVPRV SET GBL="^VA(200)"
+1 IF $PIECE($GET(^DD(9000010.06,.01,0)),U,2)[6
SET GBL=U_$CHAR(68)_"IC(16)"
+2 SET PRV=$ORDER(@GBL@("B","SHORR,GR"))
+3 IF '$LENGTH(PRV)
GOTO TVX
+4 SET PRVIEN=$ORDER(@GBL@("B",PRV,0))
+5 IF 'PRVIEN
GOTO TVX
+6 SET DIC="^AUPNVPRV("
SET DIC(0)="L"
SET X="""`"_PRVIEN_""""
SET DLAYGO=9000010.06
+7 DO ^DIC
IF Y=-1
GOTO TVX
+8 SET DA=+Y
SET DIE=DIC
SET DR=".02////^S X=AUPNPAT;.03////^S X=VIEN;.04////P"
+9 LOCK +^AUPNVPOV(DA):1
IF $TEST
DO ^DIE
LOCK -^AUPNVPOV(DA)
+10 ; PT ED ENTRIIES NOT REQUIRED
IF '$GET(PFLAG)
GOTO TVX
TVPED SET PRVIEN=$ORDER(^VA(200,"B",PRV,0))
IF 'PRVIEN
QUIT
+1 SET NTIEN=$ORDER(^AUTTEDT("B","CHT-NUTRITION",999999),-1)
IF 'NTIEN
GOTO TVX
+2 SET ETIEN=$ORDER(^AUTTEDT("B","CHT-PARENTING",999999),-1)
IF 'ETIEN
GOTO TVX
+3 SET DIC="^AUPNVPED("
SET DIC(0)="L"
SET X="""`"_NTIEN_""""
+4 DO ^DIC
IF Y=-1
QUIT
+5 SET DA=+Y
SET DIE=DIC
SET DR=".02////^S X=AUPNPAT;.03////^S X=VIEN;.05////^S X=PRVIEN;.06////^S X=2;.08////^S X=22"
+6 LOCK +^AUPNVPOV(DA):1
IF $TEST
DO ^DIE
LOCK -^AUPNVPOV(DA)
+7 SET ^AUPNVPED(DA,1,0)="^9000010.161^2^2"
+8 SET ^AUPNVPED(DA,1,1,0)="Offer variety of health foods"
+9 SET ^AUPNVPED(DA,1,"B","Offer variety of health foods",1)=""
+10 SET ^AUPNVPED(DA,1,2,0)="Do not force eating"
+11 SET ^AUPNVPED(DA,1,"B","Do not force eating",2)=""
+12 SET DIC="^AUPNVPED("
SET DIC(0)="L"
SET X="""`"_ETIEN_""""
+13 DO ^DIC
IF Y=-1
QUIT
+14 SET DA=+Y
SET DIE=DIC
SET DR=".02////^S X=AUPNPAT;.03////^S X=VIEN;.05////^S X=PRVIEN;.06////^S X=3;.08////^S X=33"
+15 LOCK +^AUPNVPED(DA):1
IF $TEST
DO ^DIE
LOCK -^AUPNVPED(DA)
+16 SET ^AUPNVPED(DA,1,0)="^9000010.161^2^2"
+17 SET ^AUPNVPED(DA,1,1,0)="Read books together 30 minutes a day"
+18 SET ^AUPNVPED(DA,1,"B","Read books together 30 minutes",1)=""
+19 SET ^AUPNVPED(DA,1,2,0)="Do not expect child to share all toys"
+20 SET ^AUPNVPED(DA,1,"B","Do not expect child to share a",2)=""
TVWC SET DIC="^AUPNVWC("
SET DIC(0)="L"
SET X=""""_0_""""
+1 DO ^DIC
IF Y=-1
QUIT
+2 SET DA=+Y
SET DIE=DIC
SET DR=".02////^S X=AUPNPAT;.03////^S X=VIEN;.04////^S X=PRVIEN;.06////^S X=3;.05////^S X=33"
+3 SET DR=DR_";.09////^S X=PRVIEN;.08////^S X=2;.07////^S X=22"
+4 LOCK +^AUPNVWC(DA):1
IF $TEST
DO ^DIE
LOCK -^AUPNVWC(DA)
+5 SET ^AUPNVWC(DA,1,0)="^9000010.461^2^2"
+6 SET ^AUPNVWC(DA,1,1,0)="Read books together 30 minutes a day"
+7 SET ^AUPNVWC(DA,1,"B","Read books together 30 minutes",1)=""
+8 SET ^AUPNVWC(DA,1,2,0)="Do not expect child to share all toys"
+9 SET ^AUPNVWC(DA,1,"B","Do not expect child to share a",2)=""
+10 SET ^AUPNVWC(DA,1,0)="^9000010.465^2^2"
+11 SET ^AUPNVWC(DA,5,1,0)="Offer variety of health foods"
+12 SET ^AUPNVWC(DA,1,"B","Offer variety of health foods",1)=""
+13 SET ^AUPNVWC(DA,5,2,0)="Do not force eating"
+14 SET ^AUPNVWC(DA,1,"B","Do not force eating",2)=""
TVX DO ^XBFMK
+1 QUIT
+2 ;
