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

SCRPTPOS.m

Go to the documentation of this file.
  1. SCRPTPOS ;ALB/DJS - Team Position Extract for PCMMR Data Validation; 04/08/14
  1. ;;5.3;Scheduling;**620**;AUG 13, 1993;Build 11
  1. ;
  1. ENTER ; Entry point
  1. ;
  1. ; Extract file will be a delimited text file (.TXT) that will provide information for PCMM data validation
  1. ; Delimiter is a pipe ("|") character
  1. ;
  1. ; FILE OUTPUT:
  1. ;
  1. ; STANUM - Station #
  1. ; TPIEN - IEN of Team Position
  1. ; TPOS - Name of Team Position
  1. ; TIEN - IEN pointer to Team file #404.51
  1. ; TNAME - Team Name
  1. ; ROLEIEN - IEN of Standard Role
  1. ; ROLE - Standard Role Name
  1. ; POSSPP - Possible Primary Practitioner
  1. ; MAXPT - Max # of Patients
  1. ; PRECPOS - Preceptor Position
  1. ; ACTASPRE - Can act as a Preceptor?
  1. ; PDESC - Position Description
  1. ; DEATHMSG - Death Message
  1. ; INPTMSG - Inpatient Message
  1. ; TEAMMSG - Team Message
  1. ; PREDTHMS - Preceptor Death Message
  1. ; PREINPMS - Preceptor Inpatient Message
  1. ; PRETMMSG - Preceptor Team Message
  1. ; AUINAMSG - Automatic Inactivation Message
  1. ; PRAINMSG - Preceptor Automatic Inactivation Message
  1. ; CURPCPT - Current # of PC Patients
  1. ; CURPTS - Current # of Patients
  1. ; CURSTAT - Current Status == Active or Inactive
  1. ; CUREFFDT - Current Effective Date
  1. ; CURACTDT - Current Activation Date
  1. ; CURINADT - Current Inactivation Date
  1. ; CURPRAC - Current Practitioner
  1. ; CURPRCPS - Current Preceptor Position
  1. ; CURPREC - Current Preceptor
  1. ; ACTPREC - Active Precepts
  1. ;
  1. N SCMCPATH,SCMCHFS,SCMCERR,SCMCMODE,MSG,IOF
  1. N SITE,SCDATA,SCIENS,STANUM,TPIEN,TPOS,TIEN,TNAME,ROLEIEN,ROLE,POSSPP,MAXPT,PRECPOS,ACTASPRE,PDESC,DEATHMSG,INPTMSG,TEAMMSG,PREDTHMS
  1. N PREINPMS,PRETMMSG,AUINAMSG,PRAINMSG,CURPCPT,CURPTS,CURSTAT,CUREFFDT,CURACTDT,CURINADT,CURPRAC,CURPRCPS,CURPREC,ACTPREC
  1. S SITE=$$SITE^VASITE,STANUM=$P(SITE,"^",3)
  1. S SCMCPATH=$$DEFDIR^%ZISH(),SCMCHFS=STANUM_"_PCMMTEAMPOSITION.TXT",SCMCERR=0 U 0 W !!,SCMCPATH
  1. D HFSOPEN("SCMCRP",SCMCPATH,SCMCHFS,"W") I SCMCERR G END
  1. U IO
  1. D COLHDR,SETREC G END
  1. ;
  1. SETREC ;$O through Team Position file and find all team positions
  1. S TPIEN=0
  1. F S TPIEN=$O(^SCTM(404.57,TPIEN)) Q:TPIEN=""!(TPIEN'?.N) D
  1. .K SCDATA
  1. .S SCIENS=+$G(TPIEN)_","
  1. .D GETS^DIQ(404.57,SCIENS,".01;.02;.03;.04;.08;.1;.12;1;2.01;2.02;2.03;2.05;2.06;2.07;2.09;2.10;200;201;300;301;302;303;304;305;306;307","IE","SCDATA","")
  1. .S TPOS=$G(SCDATA(404.57,SCIENS,.01,"E"))
  1. .S TIEN=$G(SCDATA(404.57,SCIENS,.02,"I"))
  1. .S TNAME=$G(SCDATA(404.57,SCIENS,.02,"E"))
  1. .S ROLEIEN=$G(SCDATA(404.57,SCIENS,.03,"I"))
  1. .S ROLE=$G(SCDATA(404.57,SCIENS,.03,"E"))
  1. .S POSSPP=$G(SCDATA(404.57,SCIENS,.04,"E"))
  1. .S MAXPT=$G(SCDATA(404.57,SCIENS,.08,"E"))
  1. .S PRECPOS=$G(SCDATA(404.57,SCIENS,.1,"E"))
  1. .S ACTASPRE=$G(SCDATA(404.57,SCIENS,.12,"E"))
  1. .S PDESC=$G(^SCTM(404.57,TPIEN,1,1,0))
  1. .S DEATHMSG=$G(SCDATA(404.57,SCIENS,2.01,"E"))
  1. .S INPTMSG=$G(SCDATA(404.57,SCIENS,2.02,"E"))
  1. .S TEAMMSG=$G(SCDATA(404.57,SCIENS,2.03,"E"))
  1. .S PREDTHMS=$G(SCDATA(404.57,SCIENS,2.05,"E"))
  1. .S PREINPMS=$G(SCDATA(404.57,SCIENS,2.06,"E"))
  1. .S PRETMMSG=$G(SCDATA(404.57,SCIENS,2.07,"E"))
  1. .S AUINAMSG=$G(SCDATA(404.57,SCIENS,2.09,"E"))
  1. .S PRAINMSG=$G(SCDATA(404.57,SCIENS,2.10,"E"))
  1. .S CURPCPT=$G(SCDATA(404.57,SCIENS,200,"E"))
  1. .S CURPTS=$G(SCDATA(404.57,SCIENS,201,"E"))
  1. .S CURSTAT=$G(SCDATA(404.57,SCIENS,300,"E"))
  1. .S CUREFFDT=$G(SCDATA(404.57,SCIENS,301,"E"))
  1. .S CURACTDT=$G(SCDATA(404.57,SCIENS,302,"E"))
  1. .S CURINADT=$G(SCDATA(404.57,SCIENS,303,"E"))
  1. .S CURPRAC=$G(SCDATA(404.57,SCIENS,304,"E"))
  1. .S CURPRCPS=$G(SCDATA(404.57,SCIENS,305,"E"))
  1. .S CURPREC=$G(SCDATA(404.57,SCIENS,306,"E"))
  1. .S ACTPREC=$G(SCDATA(404.57,SCIENS,307,"E"))
  1. .W STANUM_"|"_TPIEN_"|"_TPOS_"|"_TIEN_"|"_TNAME_"|"_ROLEIEN_"|"_ROLE_"|"_POSSPP_"|"_MAXPT_"|"_PRECPOS_"|"_ACTASPRE_"|"_PDESC_"|"_DEATHMSG_"|"_INPTMSG_"|"_TEAMMSG_"|"_PREDTHMS_"|"
  1. .W PREINPMS_"|"_PRETMMSG_"|"_AUINAMSG_"|"_PRAINMSG_"|"_CURPCPT_"|"_CURPTS_"|"_CURSTAT_"|"_CUREFFDT_"|"_CURACTDT_"|"_CURINADT_"|"_CURPRAC_"|"_CURPRCPS_"|"_CURPREC_"|"_ACTPREC,!
  1. Q
  1. ;
  1. COLHDR ;Create column header for Team Position extract file
  1. W "Station #|Position IEN|Position Name|Team IEN|Team Name|Standard Role IEN|Standard Role Name|Possible Primary Practitioner|Max # Patients|Preceptor Position|Can Act as Preceptor|Position Description|"
  1. W "Death Message|Inpatient Message|Team Message|Preceptor Death Message|Preceptor Inpatient Message|Preceptor Team Message|Auto Inactivation Message|Prec Auto Inactivation Message|Current # PC Patients|"
  1. W "Current # Patients|Current Status|Current Effective Date|Current Activation Date|Current Inactivation Date|Current Practitioner|Current Preceptor Position|Current Preceptor|Active Precepts",!
  1. Q
  1. ;
  1. END D HFSCLOSE("SCMCRP",SCMCHFS)
  1. N I
  1. I '+SCMCERR D Q ;Create pipe delimited output if no errors
  1. .S MSG=$NA(^TMP("SCMC",$J))
  1. ;Replace "##FFFF##" with Form Feeds - code needed for LINUX environments
  1. S I=0 F S I=$O(^TMP("SCMC",$J,1,I)) Q:'I D
  1. .S:^TMP("SCMC",$J,1,I)["##FFFF##" ^TMP("SCMC",$J,1,I)=$P(^TMP("SCMC",$J,1,I),"##FFFF##")_$C(13,12)_$P(^TMP("SCMC",$J,1,I),"##FFFF##",2)
  1. .S ^TMP("SCMC",$J,1,I)=^TMP("SCMC",$J,1,I)_$C(13)
  1. .S:^TMP("SCMC",$J,1,I)["$END" ^TMP("SCMC",$J,1,I)=""
  1. S MSG=$NA(^TMP("SCMC",$J))
  1. Q
  1. ;
  1. HFSOPEN(HANDLE,SCMCPATH,SCMCHFS,SCMCMODE) ; Open File
  1. N POP
  1. D OPEN^%ZISH(HANDLE,SCMCPATH,SCMCHFS,$G(SCMCMODE,"W")) D:POP Q:POP
  1. .S SCMCERR=1,^TMP("SCMC",$J,1)="0^Unable to open file "
  1. S IOF="$$IOF^SCRPTPOS" ;resets screen position and adds page break flag - added to deal with Linux environments.
  1. Q
  1. ;
  1. HFSCLOSE(HANDLE,SCMHFS) ;Close HFS and unload data
  1. D CLOSE^%ZISH(HANDLE)
  1. Q
  1. ;
  1. IOF() ;used to reset position and insert page break flag when @IOF is executed.
  1. S $X=0,$Y=0
  1. Q "##FFFF##"_$C(13,10)
  1. ;